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ABSTRACT 

Instructions  In  the  organization  and  use  of  the  computer  programs  which 
implement  the  Initial  NATO  Reference  Mobility  Model  (INRMM)  are  presented. 

Volume  II  is  devoted  to  the  INRMM  Obstacle-Crossing  Module.  A  brief  description 
of  the  mathematical  equations  and  computing  algorithms  which  predict  the  speed 
of  a  vehicle  over  a  variety  of  terrain,  the  input  data  required,  and  the  outputs 
generated  is  included.  Some  aid  to  the  Interpretation  of  various  output  vari¬ 
ables  i s  given. 
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I  INTRODUCTION  AND  OVERVIEW* 

The  NATO  Reference  Mobility  Model  (  NRMM)  is  a 

collection  of  equations  and  algorithms  designed  to  simulate  the 
cross-country  movement  of  vehicles.  It  was  developed  from  several 
predecessor  models,  principally  AMC-74  (Jurkat,  Nuttall  and  Haley 
(1975)).  This  report,  in  several  volumes,  provides  some  background  and 
motivation  for  most  aspects  of  the  Model,  and  presents  documentation 
for  the  coded  version  now  available  through  the  U.  S.  Army 
Tank-Automotive  Research  and  Development  Command  (TARADCGM). 

A.  Background 

Rational  design  and  selection  of  military  ground  vehicles 

requires  objective  evaluation  of  an  ever-increasing  number  of  vehicle 

system  options.  Technology,  threat,  operational  requirements,  and  cost 
constraints  change  with  time.  Current  postures  must  be  reexamined,  new 

options  evaluated,  and  new  trade-offs  and  decisions  made.  In  the 
single  area  of  combat  vehicles,  for  example,  changes  in  one  or  another 
influencing  factor  might  require  trade-offs  that  run  the  gamut  from 
opting  for  an  air  or  ground  system,  through  choosing  wheels,  tracks  or 
air  cushions,  to  designating  a  new  tire. 

The  former  Mobility  Systems  Laboratory  of  the  then  U.  S.  Army 
Tank-Automotive  Command  (TACOM)  and  the  U.  S.  Army  Engineer  Waterways 
^  Experiment  Station  (WES)  are  the  Army  agencies  responsible  for 

*  This  chapter  is  adapted  from  Jurkat,  Nuttall  and  Haley  (1975). 
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conducting  ground  mobility  research.  In  1971,  a  unified  U.  S.  ground 
mobility  program,  under  the  direction  of  the  then  Army  Materiel 
Command  (AMC),  was  implemented  that  specifically  geared  the 
capabilities  of  both  laboratories  to  achieve  common  goals. 

As  a  first  step  in  the  unified  program,  a  detailed  review  was 
made  of  existing  vehicle  mobility  technology  and  of  the  problems  and 
requirements  of  the  various  engineering  practitioners  associated  with 
the  military  vehicle  life  cycle.  One  basic  requirement  was  identified 
as  common  to  all  practitioners  surveyed:  the  need  for  an  objective 
analytical  procedure  for  quantitatively  assessing  the  performance  of  a 
vehicle  in  a  specified  operational  environment.  This  is  the  need  that 
is  addressed  to  a  substantial  extent  by  the  INRMM  and  its 
predecessors . 

In  theory,  a  single  methodology  can  serve  some  of  the  needs  of 
all  major  practitioners,  provided  it  relates  vehicle  performance  to 
basic  characteristics  of  the  vehicle-driver-terrain  system  at 
appropriate  levels  of  detail. 

Three  principal  categories  of  potential  users  of  the 
methodology  were  identified:  the  vehicle  development  community,  the 
vehicle  procurement  community,  and  the  vehicle  user  community  (Figure 
I.A.1).  The  greatest  level  of  detail  is  needed  by  the  design  and 
development  engineer  (vehicle  design  and  development  community)  who  is 
interested  in  subtle  engineering  details — for  example,  wheel  geometry, 
sprung  masses,  spring  rates,  track  widths,  etc. — and  their 
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VEHICLE  DESIGN  AND  VEHICLE  PROCUREMENT  VEHICLE  USER 


PROSPECTIVE  USERS  OF  VEHICLE  PERFORMANCE  PREDICTION  METHODOLOGY 


FIGURE  I-A-1 

interactions  with  soil  strength,  tree  stems  of  various  sizes  and 
spacings,  approach  angles  in  ditches  and  streams,  etc.  At  the  other 
end  of  the  spectrum  is  the  strategic  planner  (user  community),  who  is 
interested  in  such  highly  aggregated  characteristics  as  the  average 
cross-country  speed  of  a  given  vehicle  throughout  a  specified 
region — the  net  result  of  many  interactions  of  the  engineering  details 
with  features  of  the  total  operational  environment.  Between  these  two 
extremes,  is  the  person  responsible  for  selection  of  the  vehicles  who 
must  evaluate  the  effect  of  changes  of  major  subsystems  or  choose  from 
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concepts  of  early  design  stages.  To  be  responsive  to  the  needs  of  all 
three  user  communities,  the  methodology  must  be  flexible  enough  to 
provide  compatible  results  at  many  levels  and  in  an  appropriate 
variety  of  formats. 

Interest  in  a  single,  unified  methodology  applicable  to  the 
needs  of  these  three  principal  users  led  to  the  creation  of  a 
cross-country  vehicle  computer  simulation  combining  the  best  available 
knowledge  and  models  of  the  day.  Much  of  this  knowledge  was  collected 
in  Rula  and  Nuttall  (1971).  The  first  realization  of  the  simulation 
was  a  series  of  computer  programs  known  as  the  AMC-71  Mobility  Model, 
called  AMC-71  for  short  (US  ATAC(1973)).  This  model  first  became 
operational  in  1971;  it  was  published  in  1973.  It  was  conceived  as  the 
first  generation  of  a  family  whose  descendants,  under  the  evolutionary 
pressures  of  subsequent  research  and  validation  testing  results, 
application  experiences,  and  growing  user  requirements,  would  be 
characterized  by  greater  accuracy  and  applicability.  A  relatively 
current  status  report  may  be  found  in  Nuttall,  Rula  and  Dugoff  (1974). 

The  first  descendant,  known  as  AMC-74,  is  the  basis  for  the 
INRMM.  It  is  documented  in  Jurkat,  Nuttall  and  Haley  (1975).  The 
following  is  a  description  of  this  model. 
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B.  Modeling  Off-Road  Vehicle  Mobility 

In  undertaking  mobility  modeling,  the  first  question  to  be 
answered  was  the  seemingly  easy  one:  What  is  mobility?  The  answer  had 
been  elusive  for  many  years.  Semantic  reasons  can  be  traced  to  the 
beginnings  of  mobility  research,  but  there  was  also  a  pervasive 
reluctance  to  accept  the  simple  fact  that  even  intuitive  notions  about 
a  vehicle's  mobility  depend  greatly  on  the  conditions  under  which  it 
is  operating.  By  the  mid-1960s,  however,  a  consensus  had  emerged  that 
the  maximum  feasible  speed-made-good*  by  a  vehicle  between  two  points 
in  a  given  terrain  was  a  suitable  measure  of  its  intrinsic  mobility  in 
that  situation. 

This  definition  not  only  identified  the  engineering  measure  of 
mobility,  but  also  its  dependence  on  both  terrain  and  mission.  When, 
at  a  suitably  high  resolution,  the  terrain  involved  presents  the 
identical  set  of  impediments  to  vehicle  travel  throughout  its  extent, 
mobility  in  that  terrain  (ignoring  edge  effects)  is  the  vehicle's 
maximum  straight-line  speed  as  limited  only  by  those  impediments.  But 
when,  as  is  typically  the  case,  the  terrain  is  not  so  homogeneous,  the 
problem  immediately  becomes  more  complex.  Maximum  speed-made-good  then 
becomes  an  interactive  function  of  terrain  variations,  end  points 
specified,  and  the  path  selected.  (Note  that  the  last  two  constitute 
at  least  part  of  a  detailed  mission  statement.)  As  a  way  to  achieve  a 
useful  simulation  in  this  complicated  situation  the  INRMM  deliberately 

*Speed-made-good  between  two  points  is  the  straight-line  distance 
between  the  points  divided  by  total  travel  time,  irrespective  of  path. 
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simplifies  the  real  areal  terrain  into  a  mosaic  of  terrain  units 
within  each  of  which  the  terrain  characteristics  are  considered 
sufficiently  uniform  to  permit  use  of  the  simple,  maximum 
straight-line  speed  of  the  vehicle  to  define  its  mobility  in,  along, 
or  across  that  terrain  unit.  A  terrain  unit  or  segment  specified  for  a 
road  or  trail  is,  similarly,  considered  to  have  uniform 
characteristics  throughout  its  extent. 

Maximum  speed  predictions  are  made  for  each  terrain  unit 
without  concern  for  whether  or  not  distances  within  the  unit  are 
adequate  to  permit  the  vehicle  to  reach  the  predicted  maximum.  This 
vehicle  and  terrain-specific  speed  prediction  is  the  basic  output  of 
the  model.  The  model,  in  addition,  generates  data  that  may  be  used  to 
predict  operational  vibration  levels,  mission  fuel  consumption,  etc., 
and  can  provide  diagnostic  information  as  to  the  factors  limiting 
speed  performance  in  the  terrain  unit. 

The  speed  and  other  performance  predictions  for  all  terrain 
units  in  an  area  can  be  incorporated  into  maps  that  specify  feasible 
levels  of  performance  that  a  given  vehicle  might  achieve  at  all  points 
in  the  area.  At  this  point,  the  output  is  reasonably  general  and  is 
essentially  independent  of  mission  and  operational  scenario 
influences.  The  basic  data  constituting  the  maps  must  usually  be 
further  processed  to  meet  the  needs  of  specific  users.  These  needs 
vary  from  relatively  simple  statistics  or  indices  reflecting  overall 
vehicle  compatibility  with  the  terrain,  to  extensive  analyses 
involving  detailed  or  generalized  missions.  None  of  these  so  called 
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post-processors  is  included  as  part  of  the  INRMM. 


R-2058,  VOLUME  II 
Obstacle  Module 


Page  8 


C.  Overall  Structure  of  the  INRMM 

In  formulating  AMC-71,  it  was  recognized  that  its  ultimate 
usefulness  to  decision  makers  in  the  vehicle  development,  procurement, 
and  user  communities  would  depend  upon  its  realism  and  credibility. 
(See  Nuttall  and  Dugoff  (1973)*)  These  perceived  requirements  led  to 
several  more  concrete  objectives  related  to  the  overall  structure  of 
the  model.  It  was  determined  that  the  model  should  be  designed  to: 

1.  Allow  validation  by  parts  and  as  a  whole. 

2.  Make  a  clear  distinction  between  engineering  predictions  and 
any  whose  outcome  depends  significantly  upon  human  judgment, 
with  the  latter  kept  visible  and  accessible  to  the  model 
user . 

3.  Be  updated  readily  in  response  to  new  vehicle  and 
vehicle-terrain  technology. 

4.  Use  measured  subsystem  performance  data  in  place  of 
analytical  predictions  when  and  as  available  and  desired. 

These  objectives,  plus  the  primary  goal  of  supporting  decision 
making  relating  to  vehicle  performance  at  the  several  levels,  clearly 
dictated  a  highly  modular  structure  that  could  both  provide  and  accept 
data  at  the  subsystem  level,  as  well  as  make  predictions  for  the 
vehicle  as  a  whole.  The  resulting  gross  structure  of  the  model  is 
illustrated  in  Figure  I.C.1. 

At  the  heart  of  the  model  are  three  independent  computational 
modules,  each  comprised  of  analytical  relations  derived  from 
laboratory  and  field  research,  suitably  coupled  in  the  particular  type 
of  operation.  These  are: 


Vehicle  Preprocessor 
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feature  such  as  a  stream,  ditch,  or  embankment  (not  currently 
available)  . 

3-  The  Road  Module,  which  computes  the  maximum  feasible  speed  of 
a  single  vehicle  traveling  along  a  uniform  segment  of  a  road 
or  trail  . 

These  Modules  and  the  Terrain  and  Vehicle  Preprocessors  are  collected 
in  a  computer  program  called  NRMM  and  are  described  in  Volume  I. 

These  three  Modules  may  be  used  separately  or  together. 
Alternately,  INRMM  has  the  ability  to  simulate  travel  from  terrain 
unit  to  terrain  unit  in  the  sequence  given  by  the  terrain  input  file. 
In  this  mode,  known  as  the  traverse  mode,  sufficient  output  data  can 
be  provided  so  that  the  user  may  calculate  acceleration  and 
deceleration  times  and  distances  between  and  across  terrain  unit 
boundaries,  and  thereby  determine  actual  travel  time  and 
speed -made-good  over  a  chosen  route. 

All  three  modules  draw  from  a  common  data  base  that  describes 
quantitatively  the  vehicle,  the  driver,  and  the  terrain  to  be  examined 
in  the  simulation.  The  general  content  of  the  data  base  is  shown  in 


Table  I.C.1. 
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TABLE  I.C.1 

Terrain,  Vehicle,  Driver  Attributes  Characterized  in  INRMM 

Data  Base 


Terrain 

Vehicle 

Driver 

Surface  Composition 

Geometric 

Reaction  Times 

Type 

characteristics 

Strength 

Inertial 

Recognition  distance 

Surface  Geometry 

characteristics 

Acceleration  and 

Slope 

impact  tolerances 

Altitude 

Mechanical 

Discrete  Obstacles 

characteristics 

Minimum  acceptable 

Roughness 

Road  Curvature 

Road  Width 

Road  Superelevation 

speeds 

Vegetation 
Stem  Size 
Stem  Spacing 


Linear  Geometry 

Stream  cross  section 
Water  velocity 
Water  depth 
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D,  Model  Inputs  and  Preprocessors 

1.  Terrain 

For  the  purposes  of  the  model,  each  terrain  unit  is  described 
at  any  given  time  by  values  for  a  series  of  22  mathematically 
independent  terrain  factors  for  an  areal  unit  (including  lake  and 
marsh  factors),  10  for  the  cross  section  of  a  linear  feature  to  be 
negotiated,  and  9  to  quantify  a  road  segment.  General-purpose  terrain 
data  also  include  separate  values  for  several  terrain  factor  values 
that  vary  during  the  year.  For  example,  at  present  such  general  data 
for  areal  terrain  include  four  values  for  soil  strength  (dry,  average, 
wet,  and  wet-wet  seasons)  and  four  seasonal  values  for  recognition 
distances  in  vegetated  areas.  Similar  variations  in  effective  ground 
roughness,  resulting  from  seasonal  changes  in  soil  moisture  (including 
freezing)  and  in  the  cultivation  of  farm  land,  can  be  envisioned  for 
the  future.  Further  details  on  the  terrain  factors  used  are  given  in 
Rula  and  Nuttall  (1975). 

As  discussed  earlier,  the  basic  approach  to  representing  a 
complex  terrain  is  to  subdivide  it  into  areal  patches,  linear  feature 
segments,  or  road  segments,  each  of  which  can  be  considered  to  be 
uniform  within  its  bounds.  Besides  supplying  actual  values  for  the 
terrain  factors,  this  concept  may  be  implemented  by  dividing  the  range 
of  each  individual  terrain  factor  value  into  a  number  of  class 
intervals,  based  upon  considerations  of  vehicle  response  sensitivity 
and  practical  measurement  and  mapping  resolution  problems.  A  patch  or 
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a  segment  is  then  defined  by  the  condition  that  the  class  interval 
designator  for  each  factor  involved  is  the  same  throughout.  A  new 
patch  or  segment  is  defined  whenever  one  or  more  factors  fall  into  a 
new  class  interval. 

Before  being  used  in  the  three  computational  Modules,  the  basic 
terrain  data  are  passed  through  a  Terrain  Data  Preprocessor,  called 
TPP  in  the  Computer  Program  NRMM.  This  preprocessor  does  three  things: 

1.  Converts  as  necessary  all  data  from  the  units  in  which  they 
are  stored  to  inches,  pounds,  seconds  and  radians,  which  are 
used  throughout  the  subsequent  performance  calculations. 

2.  Selects  prestored  soil  strengths  and  visibility  distances 
according  to  run  specifications,  which  are  supplied  as  part 
of  the  scenario  data  (see  belowK 

3.  Calculates  from  the  terrain  measurements  in  the  basic  terrain 
data  a  small  number  of  mathematically  dependent  terrain 
variables  used  repeatedly  in  the  computational  modules. 

2.  Vehicle 

The  vehicle  is  specified  in  the  vehicle  data  base  in  terms  of 
its  basic  geometric,  inertial,  and  mechanical  characteristics.  The 
complete  vehicle  characterization  as  used  by  the  performance 
computation  modules  includes  measures  of  dynamic  response  to  ground 
roughness  and  obstacle  impact,  and  the  clearance  and  traction 
requirements  of  the  vehicle  while  it  is  negotiating  a  parametric 


series  of  discrete  obstacles. 
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Obstacle  Module 

The  model  structure  permits  use  at  these  points  of  appropriate 
data  derived  either  from  experiments  or  from  supporting  stand-alone 
simulations  used  as  preprocessors.  One  supporting  two-dimensional  ride 
and  obstacle  crossing  Dynamics  Module  for  obtaining  requisite  dynamics 
responses ( currently  called  VEHDYN  and  described  in  Volume  III)  and  a 
second  supporting  Module  for  computing  obstacle  crossing  traction 
requirements  and  interferences  (currently  called  OBS78B  and  described 
in  this  Volume)  are  available  as  elements  of  the  INRMM.  Both  derive 
some  required  information  from  the  basic  vehicle  data  base,  and  both, 
when  used,  constitute  stand-alone  vehicle  data  preprocessors. 

There  is  also  a  Vehicle  Data  Preprocessor  called  VPP  (integral 
to  NRMM)  which,  like  the  Terrain  Data  Preprocessor,  has  three 
functions: 

1.  Conversion  of  vehicle  input  data  to  uniform  inches,  pounds, 
seconds,  and  radians. 

2.  Calculation,  from  the  input  data,  of  controlling  soil 
performance  parameters  and  other  simpler  dependent  vehicle 
variables  subsequently  used  by  the  computational  modules,  but 
usually  not  readily  measured  on  a  vehicle  or  available  in  its 
engineering  specifications. 

3.  Computation  of  the  basic  steady-state  traction  versus  speed 
characteristics  of  the  vehicle  power  train,  from  engine  and 
power  train  characteristics. 

As  in  the  case  of  dynamic  responses  and  obstacle  capabilities, 
the  last  item,  the  steady-state  tractive  force-speed  relation,  may  be 
input  directly  from  proving  ground  data,  when  available  and  desired. 
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3.  Driver 

The  driver  attributes  used  in  the  model  characterize  the  driver 
in  terms  of  his  limiting  tolerance  to  shock  and  vibration  and  his 
ability  to  perceive  and  react  to  visual  stimuli  affecting  his 
behaviour  as  a  vehicle  controller.  While  these  attributes  are 
identified  in  Figure  I.C.1  and  Table  I.C.1  as  part  of  the  data  base 
INRMM  provides  for  their  specific  identification  and  user  control  so 
that  the  effects  of  various  levels  of  driver  motivation,  associated 
with  combat  or  tactical  missions,  for  example,  can  be  considered. 

Scenario 

Several  optional  features  are  available  to  the  user  of  the 
INRMM  (weather,  presumed  driver  motivation,  operational  variations  in 
tire  inflation  pressure)  which  allow  the  user  to  match  the  model 
predictions  to  features  or  assumptions  of  the  full  operational 
scenario  for  which  predictions  are  required.  Model  instructions  which 
select  and  control  these  options  are  referred  to  as  scenario  inputs. 

The  scenario  options  include  the  specification  of: 

1.  Season,  which,  when  seasonal  differences  in  soil  strength 
constitute  a  part  of  the  terrain  data,  allows  selection  of 
the  soil  strength  according  to  the  variations  in  soil 
moisture  with  seasonal  rainfall,  and 

2.  Weather,  which  affects  soil  slipperiness  and  driving 
visibility,  (including  dry  snow  over  frozen  ground  and 
associated  conditions). 

3.  Several  levels  of  operational  influences  on  driver  tolerances 
to  ride  vibrations  and  shock,  and  on  driver  strategy  in 
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negotiating  vegetation  and  using  brakes. 

4.  Reasonable  play  of  tire  pressure  variations  to  suit  the  mode 
of  operat ion--on-road ,  cross-country,  and  in  sand. 
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E.  Stand-Alone  Simulation  Modules 


As  indicated 
independent  Modules 
described,  form  two 
Modules  will  now  be 


above,  the  Model  is  implemented  by  a  series  of 
The  Terrain  and  Vehicle  Preprocessors,  already 
of  these.  Two  further  major  stand-alone  simulation 
outlined . 


1.  Obstacle-crossing  Module-OBS78B 

This  Module  determines  interferences  and  traction  requirements 
when  vehicles  are  crossing  the  kind  of  minor  ditches  and  mounds 
characterized  as  part  of  the  areal  terrain;  it  is  described  fully  in 
this  Volume.  It  is  used  as  a  stand-alone  Preprocessor  Module  to  the 
Areal  Module  of  INRMM. 


The  Obstacle-crossing  Module  simulates  the  inclination  and 
position,  interferences,  and  traction  requirements  of  a 
two-dimensional  (vertical  center-line  plane)  vehicle  crossing  a  single 
obstacle  in  a  trapezoidal  shape  as  a  mound  or  a  ditch.  The  module 
determines  a  series  of  static  equilibrium  positions  of  the  vehicle  as 
it  progresses  across  the  obstacle  profile.  Extent  of  interference  is 
determined  by  comparison  of  the  obstacle  profile  and  the  displaced 
vehicle  bottom  profile.  Traction  demand  at  each  position  is  determined 
by  the  forces  on  driven  running  gear  elements,  tangential  to  the 
obstacle  surface,  required  to  maintain  the  vehicle's  static  position. 
Pitch  compliance  of  suspension  elements  is  not  accounted  for  but  frame 
articulation  (as  at  pitch  joints,  trailer  hitches,  etc)  is  permitted. 
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Ihe  Obstacle-crossing  Module  produces  a  table  of  minimum 
clearances  (or  maximum  interferences)  and  average  and  maximum  force 
required  to  cross  a  representative  sample  of  obstacles  defined  by 
combinations  of  obstacle  dimensions  varied  over  the  ranges  appropriate 
for  features  included  in  the  areal  terrain  description.  This 
simulation  is  done  only  once  for  each  vehicle.  Included  in  the  INRMM 
Areal  Module  is  a  three-dimensional  linear  interpolation  routine 
which,  for  any  given  set  of  obstacle  parameters,  approximates  from  the 
derived  table  the  corresponding  vehicle  clearance  (or  interference) 
and  associated  traction  requrements.  Obviously,  the  more  entries  there 
are  in  the  table,  the  more  precise  will  be  the  determination. 

2.  Ride  Dynamics  Module-  VEHDYN 

The  Areal  Module  examines  as  possible  vehicle  speed  limits  in  a 
given  terrain  situation  two  limits  which  are  functions  of  vehicle 
dynamic  perceptions:  speed  as  limited  by  the  driver’s  tolerance  to  his 
vibrational  environment  when  the  vehicle  is  operating  over 
continuously  rough  ground,  dnd  speed  as  limited  by  the  driver's 
tolerance  to  impact  received  while  the  vehicle  is  crossing  discrete 
obstacles.  It  is  assumed  that  the  driver  will  adjust  his  speed  to 
ensure  that  his  tolerance  levels  will  not  be  exceeded. 

The  Ride  Dynamics  Module  of  INRMM,  called  VEHDYN  and  described 
in  Volume  III,  computes  accelerations  and  motions  at  the  driver's 
station  (and  other  locations,  if  desired)  while  the  vehicle  is 
operating  at  a  given  speed  over  a  specific  terrain  profile.  The 
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profile  may  be  continuously,  randomly  rough,  may  consist  solely  of  a 
single  discrete  obstacle,  uniformly  spaced  obstacles  of  a  specific 
height  or  may  be  anything  in  between.  From  the  computed  motions, 
associated  with  driver  modeling  and  specified  tolerance  criteria, 
simple  relations  are  developed  for  a  given  vehicle  between  relevant 
terrain  measurements  and  maximum  tolerable  speed.  The  terrain 
measurement  to  which  ride  speed  is  related  is  the  root  mean  square 
(rms)  elevation  of  the  ground  profile  (with  terrain  slopes  and 
long-wavelength  components  removed).  The  terrain  descriptors  for 
obstacles  are  obstacle  height  and  obstacle  spacing. 


The  terrain  parameters  involved,  rms  elevation  and  obstacle 
height  and  spacing,  are  factors  quantified  in  each  patch  description, 
and  rms  elevation  is  specified  for  each  road  segment.  Preprocessing  of 
the  vehicle  data  in  the  ride  dynamics  module  provides  an  expedient 
means  of  predicting  dynamics-based  speed  in  the  patch  and  road  segment 
modules  via  a  simple,  rapid  table-lookup  process. 


The 

simulation 
plane  only 
handle  any 
suspension 


currently  implemented  Ride  Dynamics  Module  is  a  digital 
that  treats  vehicle  motions  in  the  vertical  center-line 
(two  dimensions).  It  is  a  generalized  model  that  will 
rigid-frame  vehicle  on  tracks  and/or  tires,  with  any 
Tires  are  modeled  using  a  segmented  wheel  representation. 


(see  Lessem  (1968))  and  a  variation  of  this  representation  is  used  to 
introduce  first-order  coupling  of  the  road  wheels  on  a  tracked  vehicle 
by  its  tracks. 
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a)  Driver  model  and  tolerance  criteria. 

It  has  been  shown  empirically  that,  in  the  continuous  roughness 
situation,  driver  tolerance  is  a  function  of  the  vibrational  power 
being  absorbed  by  the  body.  (See  Pradko,  Lee  and  Kaluza  (1966).)  The 
same  work  showed  that  the  tolerance  limit  for  representative  young 
American  males  is  approximately  6  watts  of  continuously  absorbed 
power,  and  the  research  resulted  in  a  relatively  simple  model  for 
power  absorption  by  the  body.  The  body  power  absorption  model,  based 
upon  shaping  filters  applied  to  the  decomposed  acceleration  spectrum 
at  the  driver's  station,  is  an  integral  part  of  the  INRMM 
two-dimensional  dynamics  simulation. 


In  the  past,  only  the  6  watt  criterion  was  used  to  determine  a 
given  vehicle's  speed  as  limited  by  rms  roughness.  More  recent 
measurements  in  the  field  have  shown  that  with  sufficient  motivation 
young  military  drivers  will  tolerate  more  than  6  watts  for  periods  of 
many  minutes.  Accordingly,  INRMM  will  accept  as  vehicle  data  a  series 
of  ride  speed  versus  rms  elevation  relations,  each  corresponding  to  a 
different  absorbed  power  level,  and  will  use  these  to  select 
ride-speed  limits  according  to  the  operationally  related  level  called 
for  by  the  scenario.  The  Ride  Dynamics  Module  will,  of  course,  produce 
the  required  additional  data,  but  some  increased  running  time  is 
involved  . 


The  criterion  limiting  the 
discrete  obstacle,  or  a  series  of 


speed  of  a  vehicle 
closely,  regularly 


crossing  a  single 
spaced  obstacles. 
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is  a  peak  acceleration  at  the  driver's  seat  of  2.5-g  passing  a  30-Hz. 
filter.  Data  relating  the  2.5-g  speed  limit  to  obstacle  height  and 
spacing  can  be  developed  in  the  ride  dynamics  module  by  inputting 
appropriate  obstacle  profiles. 

INRMM  requires  two  obstacle  impact  relations:  the  first,  speed 
versus  obstacle  height  for  a  single  obstacle  (spacing  very  great);  and 
the  second,  speed  versus  regular  obstacle  spacing  for  that  single 
obstacle  height  (from  the  single  obstacle  relation)  which  limits 
vehicle  speed  to  a  maximum  of  15  mph.  For  obstacles  spaced  at  greater 
than  two  vehicle  lengths,  the  single-obstacle  speed  versus  obstacle 
height  relation  is  used.  For  closer  spacings,  the  least  speed 
allowable  by  either  relation  is  selected. 

3.  Main  Computational  Modules  -  NRMM 

The  highly  iterative  computations  required  to  predict  vehicle 
performance  in  each  of  the  many  terrain  units  needed  to  describe  even 
limited  geographic  areas  are  carried  out  in  the  three  main 
computational  modules.  Each  of  these  involve  only  direct  arithmetic 
algorithms  which  are  rapidly  processed  in  modern  computers.  In  INRMM, 
even  the  integrations  required  to  compute  acceleration  and 
deceleration  between  obstacles  within  an  areal  patch  are  expressed  in 
closed,  algebraic  form. 

Terrain  input  data  include  a  flag,  which  signifies  to  the  model 
whether  the  data  describes  an  areal  patch,  a  linear  feature  segment. 
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or  a  road  segment.  This  flag  calls  up  the  appropriate  computational 
Module . 

a)  Areal  Terrain  Unit  Module 

This  Module  calculates  the  maximum  average  speed  a  vehicle 
could  achieve  and  maintain  while  crossing  an  areal  terrain  unit.  The 
speed  is  limited  by  one  or  a  combination  of  the  following  factors: 

1.  Traction  available  to  overcome  the  combined  resistances  of 
soil,  slope,  obstacles,  and  vegetation. 

2.  Driver  discomfort  in  negotiating  rough  terrain  (ride  comfort) 
and  his  tolerance  to  vegetation  and  obstacle  impacts. 

3.  Driver  reluctance  to  proceed  faster  than  the  speed  at  which 
the  vehicle  could  decelerate  to  a  stop  within  the,  possibly 
limited,  visibility  distance  prevailing  in  the  areal  unit 
(braking-visibility  limit). 

4.  Maneuvering  to  avoid  trees  and/or  obstacles. 

5.  Acceleration  and  deceleration  between  obstacles  if  they  are 
to  be  overriden. 

6.  Damage  to  tires. 

Figure  I.E.1  shows  a  general  flow  chart  of  how  the  calculations  of  the 
Areal  Module  are  organized. 

After  determination  of  some  vehicle  and  terrain  -  dependent 
factors  used  repetitively  in  the  patch  computation  (1),*  the  Module  is 
entered  with  the  relation  between  vehicle  steady-state  speed  and 
theoretical  tractive  force  and  with  the  minimum  soil  strength  that  the 
vehicle  requires  to  maintain  headway  on  level,  weak  soils.  These  data 

*  Numbers  in  parentheses  correspond  to  numbers  in  Figure  I.E.1. 


R-2058,  VOLUME  II  Page  23 

Obstacle  Module 


r‘ 


V 

V 

V 

V 


AREAL  TERRAIN  DATA 

V 

DAIA  fROT  RIDE  OYIWIICS 

rooiiiE 

VEHICLE  DATA 

V 

data  iron  OBSTACLE  NEGOTIATIOII 
HOOULE 

VEHICLE  PAP.A.-ETERS  DERIVED 

IN  VEHICLE  DATA  PRLPROCCESSER 

SCENARIO  INPUT 

LTfCCTlVi:  obstacle  SPACiUG,  rANUJVER  SPEED  REDUCHON  AND  UND/MARSH  OPERATING  FACTORS 


SOIL  AND  SL0f'[  ,  Tk/UIION 
RfSISTAIiCE.  S!  IP 


\[(:fTAI!OII  KISISTAMCE 
(ARRAY  FOR  3  STEM  SIZES)! 


Si’hrs  LIMTED  RY 
RESIM>v;CE  RTV.’N  ORSfAriFS  (9) 


g  V .  yw 


,  SPIED  I  IMlLO  l  UV 

^  BY  VISIBIl  ITY  1 

[  Z^IPl  speed]  [V  RIDE  SPEED 

■WW. 

r  1 

r 

SPEEDS  RETWLin  OBSTACLES.  H/n  MANEUVER  (9) 

10 


SPEED  REDL’CTIO.-IS  FOR  r.^NEUVER  TO  AVOID  OBSTACLiS  WID/OR  VEGETATION  S7D1S 


SPEIUS  fPOSSlNG  OBSIACLES  (9) 
I  AC /DC  AMU  HAMfUVER) 


Ci 

1-+-, 

Q w y 

“  is'“-  « 

Bi&i 

r 

SPEEDS  ON  AND  OEF  OBSTACLES^ 

- 

PAX ! 

I 


IS 


m 


KIK 


CHECK 


MXIMUI1  SPEED  Otl  SLOPE  FOR  PATCH  BY  SELECTED  VEGEIAIION  AVD I  D/OVERRIDE  STRATEGY 


1 _ 


1.  STORE  SEUCIED  RESULTS 
3.  ITERATE  ON  TERRAIN  UNITS 


FIGURE  I.E.l  —  GENERAL  FLOW  OF  INRMM  AREAL  MODULE 


R-2058,  VOLUME  II 
Obstacle  Module 


Page  24 


are  provided  by  the  vehicle  data  preprocessor.  Soil  and  slope 
resistances  (2)  and  braking  force  limits  (4)  are  computed,  and  the 
basic  tractive  force-speed  relation  is  modified  to  account  for 
soil-limited  traction,  soil  and  slope  resistances,  and  resulting  tire 
or  track  slip.  Forces  required  to  override  prevailing  tree  stems  are 
calculated  for  eight  cases  (3):  first,  overriding  only  the  smallest 
stems,  then  overriding  the  next  largest  class  of  stems  as  well,  etc., 
until  in  the  eighth  case  all  stems  are  being  overridden. 

Stem  override  resistances  are  combined  with  the  modified 
tractive  force-speed  relation  to  predict  nine  speeds  as  limited  by 
basic  resistances  (5).  (The  ninth  speed  corresponds  to  avoiding  all 
tree  stems  . ) 

Maximum  braking  force  and  recognition  distance  are  combined  to 
compute  a  visibility-limited  speed  (6).  Resistance  and 
visibility-limited  speeds  are  compared  to  the  speed  limited  by  tire 
loading  and  inflation  (7),  if  applicable,  and  to  the  speed  limit 
imposed  by  driver  tolerance  to  vehicle  motions  resulting  from  ground 
roughness  (8).  The  least  of  these  speeds  for  each  tree 
overrid e-and-avoid  option  becomes  the  maximum  speed  possible  between 
obstacles  by  that  option,  except  for  degradation  due  to  maneuvering 
(9). 


Obstacle  avoidance  and/or  the  tree  avoidance  implied  by  limited 
stem  override  requires  the  vehicle  to  maneuver  (or  may  be  impossible). 
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Using  speed  reduction  factors  (derived  in  1)  associated  with  avoiding 
all  obstacles  (if  possible)  and  avoiding  the  appropriate  classes  of 
tree  stems,  a  series  of  nine  possible  speeds  (possibly  including  zero, 
or  NOGO)  is  computed  (10). 

A  similar  set  of  nine  speed  predictions  is  made  for  the  vehicle 
maneuvering  to  avoid  tree  stems  only  (10).  These  are  further  modified 
by  several  obstacle  crossing  considerations. 

Possible  NOGO  interference  between  the  vehicle  and  the  obstacle 
is  checked  (12).  If  obstacle  crossing  proves  to  be  NOGO,  all 
associated  vegetation  override  and  avoid  options  are  also  NOGO.  If 
there  are  no  critical  interferences,  the  increase  in  traction  required 
to  negotiate  the  obstacle  is  determined  (12). 

Next,  obstacle  approach  speed  and  the  speed  at  which  the 
vehicle  will  depart  the  obstacle,  as  a  result  of  the  momentarily  added 
resistance  encountered,  are  computed  (13)*  Obstacle  approach  speed  is 
taken  as  the  lesser  of  the  speed  between  obstacles,  reduced  for 
maneuver  required  by  each  stem  override  and  avoid  option,  and  the 
speed  limited  by  the  driver  to  control  his  crossing  impact  (11). 

Speeds  off  the  obstacle  are  computed  on  the  basis  solely  of  the 
soil-and  slope-modified  tractive  force-speed  relation  (22),  i.e. 
before  the  tractive  force  speed  relation  is  modified  to  account  for 
vegetation  override  forces,  the  traction  increment  required  for 
obstacle  negotiation,  or  any  kinetic  energy  available  as  a  result  of 
the  associated  obstacle  approach  speed  (13). 
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Final  average  speed  in  the  patch  for  each  of  the  nine  tree  stem 
override  and  avoid  options,  while  the  vehicle  is  overriding  patch 
obstacles,  is  computed  from  the  speed  profile  resulting,  in  general, 
from  considering  the  vehicle  to  accelerate  from  the  assigned  speed  off 
the  obstacle  to  the  allowable  speed  between  obstacles  (or  to  a  lesser 
speed  if  obstacle  spacing  is  insufficient),  to  brake  to  the  allowable 
obstacle  approach  speed  ,  and  to  cross  the  obstacle  per  se  at  the 
computed  crossing  speed. 

Following  a  final  check  to  ensure  that  traction  and  kinetic 
energy  are  sufficient  for  single-tree  overrides  required  (and  possible 
resetting  of  speeds  for  some  options  to  NOGO)  a  single  maximum 
in-patch  speed  (for  the  direction  of  travel  being  considered  relative 
to  the  in-unit  slope)  is  selected  from  among  the  nine  available  values 
associated  with  obstacle  avoidance  and  the  nine  for  the  obstacle 
override  cases.  If  all  18  options  are  NOGO,  the  patch  is  NOGO  for  the 
direction  of  travel.  If  several  speeds  are  given,  selection  is  made  by 
one  of  two  logics  according  to  scenario  input  instructions. 

In  the  past  the  driver  was  assumed  to  be  both  omniscient  and 
somewhat  mad.  Accordingly,  the  maximum  speed  possible  by  any  of  the  18 
strategies  was  selected  as  the  final  speed  prediction  for  the  terrain 
unit  (and  slope  direction).  Field  tests  have  shown,  however,  that  a 
driver  does  not  often  behave  in  this  ideal  manner  when  driving  among 
trees.  Rather,  he  will  take  heroic  measures  to  reach  some  reasonable 
minimum  speed,  but  will  not  continue  such  efforts  when  those  measures 
involve  knocking  down  trees  that  he  judges  it  imprudent  to  attack, 
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even  though  by  doing  so  he  could  go  still  faster.  In  INRMM,  either 
assignment  of  maximum  speed  may  be  made:  the  absolute  maximum  which 
addresses  the  vehicle's  ultimate  potential,  or  a  lesser  value  which  in 
effect  more  precisely  models  actual  driver  behavior. 

If  the  scenario  data  specify  a  traverse  prediction,  the  in-unit 
speed  and  other  predictions  are  complete  at  this  point,  and  the  model 
stores  those  results  specified  by  the  user  and  goes  on  to  consider  the 
next  terrain  unit  (or  next  vehicle,  condition,  etc).  When  a  full  areal 
prediction  is  called  for,  the  entire  computation  is  repeated  three 
times:  once  for  the  vehicle  operating  up  the  in-unit  slope,  once 
across  the  slope,  and  once  down  the  slope.  Desired  data  are  stored 
from  each  such  run  prior  to  the  next,  and  at  the  conclusion  of  the 
third  run,  the  three  speeds  are  averaged.  Averaging  is  done  on  the 
assumption  that  one-third  of  the  distance*  will  be  travelled  in  each 
direction,  resulting  in  an  omnidirectional  mean. 


*  the  average 
speeds , i . e . 


speed,  Vgyj  is  the  harmonic  average  of  the 

3/[(1/Vjjp)  +  (l/VgQj-Qgg)  +  (1/V(jown^^ 


three 
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b)  Road  Module 

The  Road  Module  calculates  the  maximum  average  speed  a  vehicle 
can  be  expected  to  attain  traveling  along  a  nominally  uniform  stretch 
of  road,  termed  a  road  unit.  Travel  on  super  highways,  primary  and 
secondary  roads,  and  trails  is  distinguished  by  specifying  a  road  type 
and  a  surface  condition  factor.  From  these  characteristics,  values  of 
tractive  and  rolling  resistance  coefficients  for  wheeled  and  tracked 
vehicles  on  hard  surfaced  roads  are  determined  by  a  table  look-up.  For 
trails,  surface  condition  is  specified  in  terms  of  cone  index  (Cl)  or 
rating  cone  index  (RCI).  Traction,  motion  resistance,  and  slip  are 
computed  using  the  soil  submodel  of  the  Areal  Module,  with  scenario 
weather  factors  used  in  the  same  way  as  in  making  off-road 
predictions . 

The  relations  used  for  computing  vehicle  performance  on  smooth, 
hard  pavements  are  taken  from  the  literature  (Smith  (1970)  and  Taborek 
(1957)) . 

The  structure  of  the  Road  Module,  while  much  simpler,  parallels 
that  of  the  Areal  Module.  Separate  speeds  are  computed  as  limited  by 
available  traction  and  countervailing  resistances  (rolling, 
aerodynamic,  grade,  and  curvature),  by  ride  dynamics  (absorbed  power), 
by  visibility  and  braking,  by  tire  load,  inflation  and  construction, 
and  by  road  curvature  per  se  (a  feature  not  directly  considered  in  the 
Areal  Module).  The  least  of  these  five  speeds  is  assigned  as  the 
maximum  for  the  road  unit  (for  the  assumed  direction  relative  to  the 
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specified  grade)  . 

The  basic  curvature  speed  limits  are  derived  from  American 
Association  of  State  Highway  Officials  (AASHO)  experience  data  for  the 
four  classes  of  roads  (AASHO  (1975))  under  dry  conditions  and  are  not 
vehicle  dependent.  These  are  appropriately  reduced  for  reduced 
traction  conditions,  and  vehicle  dependent  checks  are  made  for  tipping 
or  sliding  while  the  vehicle  is  in  the  curve. 

At  the  end  of  a  computation,  data  required  by  the  user  are 
stored.  If  the  model  is  run  in  the  traverse  mode,  the  model  returns  to 
compute  values  for  the  next  unit;  if  in  the  areal  mode,  it 
automatically  computes  performance  for  both  the  up-grade  and 
down-grade  situations  and  at  the  conclusion  computes  the  bidirectional 
(harmonic)  average  speed.  Scenario  options  are  similar  to  those  for 


the  Areal  Module. 


R-2058,  VOLUME  II 
Obstacle  Module 


Page  30 


F.  Acknowledgments 

As  with  any  comprehensive  compendium  covering  knowledge  in  a 
particular  subject  area,  the  results  are  due  to  the  combined  effort  of 
all  workers  in  the  discipline.  The  authors,  in  this  case,  are 
somewhat  akin  to  the  scribes  of  ancient  days,  recording  and  organizing 
the  wisdom  and  folly  of  those  around  them. 

There  are  those,  however,  whose  contributions  stand  out  as 
related  to  the  creation  of  the  Mobility  Model  itself.  The  authors 
wish  to  acknowledge  these  people  explicitly. 

Clifford  J.  Nuttall,  Jr.,  currently  with  the  Mobility  Systems 
Division,  Geotechnical  Laboratory  at  the  U.  S.  Army  Engineer 
Waterways  Experiment  Station  (WES)  provided  the  inspiration  for 
many  of  the  submodels,  guided  the  evolution  of  the  content  of 
the  entire  model,  and  provided  the  wisdom  and  judgement  which 
hopefully  kept  the  various  portions  in  proportion  with  each 
other.  Additional  experience  in  use  of  this  and  predecessor 
models  came  from  many  studies  conducted  by  Donald  Randolph  at 
WES.  During  the  model  development  period,  general  direction 
and  supervision  at  WES  came  from  W.  G.  Schockley,  A.  A.  Rula, 

E.  S.  Rush  and  J.  L.  Smith. 

Peter  Haley,  from  the  Tank  Automotive  Concepts  Laboratory,  USA 
TARADCOM  and,  also  the  manager  of  the  NATO  Reference  Mobility 
Model,  in  addition  to  providing  overall  guidance  and  judgment 


R-2058,  VOLUME  II 
Obstacle  Module 


Page  31 


did  much  of  the  seemingly  endless  detailed  design  and  testing 
of  the  algorithms  and  code.  He  was  aided  in  the  coding  by 
Thomas  Washburn.  Direct  supervision  of  the  model  development 
at  TARADCOM  came  from  Zoltan  J.  Janosi,  who  also  now  serves  as 
Chairman  of  the  Technical  Management  Committee  of  the  NATO 
Reference  Mobility  Model.  General  supervision  during  the 
project  was  provided  by  J.  G.  Parks,  0.  Renius,  and  Lt .  Col.  T. 
H.  Huber.  Dr.  E.  N.  Petrick,  Chief  Scientist  of  USA  TARADCOM, 
the  moving  force  of  the  NATO  RSI  effort  in  the  U.  S.  Army 
vehicle  community,  provided  overall  guidance  and  support  for 
this  activity.  He  has  been  aided  in  this  by  Edward  Lowe,  NATO 
Standardization  and  Metrication  Officer  at  TARADCOM. 

Newell  Murphy,  of  the  Mobility  Systems  Division,  WES  provided 
the  driving  force  behind  the  current  version  of  the  Ride 
Dynamics  Module,  supervising  its  conception,  creation,  and 
testing  as  well  as  guiding  the  field  work  supporting  it. 

Richard  Ahlvin  of  WES  and  Jeff  Wilson  of  Mississippi  State 
University  bore  primary  responsibility  for  the  production  of 
the  sequence  of  computer  programs  which  have  implemented  this 
Module . 

The  authors  also  wish  to  acknowledge  the  contributions  of  their 
colleagues  at  Stevens  Institute  of  Technology.  Jan  Nazalewicz  was 
responsible  for  much  of  the  Obstacle  Module.  Supervision  and  guidance 
during  the  project  came  from  I.  Robert  Ehrlich  and  Irmin  0.  Kamm. 


R-2058,  VOLUME  II 
Obstacle  Module 


Page  32 


The  arduous  task  of  entering  and  formatting  the  text  of  this 
report  was  performed  by  M.  Raihan  Ali  and  Gabriel  Totino.  Graphics 
and  charts  were  prepared  by  Mary  Ann  McGuire  and  Christopher 
McLaughlin.  The  authors  benefited  from  a  careful  review  of  the  first 
draft  by  Peter  Haley.  Finally  each  of  the  authors  notes  than  any 
errors  are  the  fault  of  the  other  author. 


R-2058,  VOLUME  II 
Obstacle  Module 


Page  33 


II  ALGORITHMS  AND  EQUATIONS 


A.  Introduction 


The  Obstacle  Module,  OBS78B,  is  a  stand  alone  program  which 
simulates  the  placement  of  the  vehicle  at  a  sequence  of  positions 
across  the  obstacle  and  for  each  position  calculates 


and 


the  tractive  forces  under  the  running  gear  to  maintain  that 
position, 


2.  the  clearances/interferences  between  the  frame  of  the  vehicle 
and  the  obstacle  at  that  position, 

and  then 


3.  selects  the  maximum  interference,  CLRMIN,  (or  minimum 
clearance  if  there  is  no  interference)  and  the  maximum 
tractive  effort,  FOOMAX,  and  calculates  the  average  tractive 
effort,  FOO,  across  the  various  positions. 


Figure  II. A. 1  gives  an  overall  view  of  the  structure  of  the  Obstacle 
Module. 


The  obstacles  are  restricted  to  the  "standard”  trapezoidal 
shape  used  throughout  the  INRMM.  The  effect  of  the  predominant  slope 
may  be  included  in  OBS78B,  but  there  are  currently  no  provisions  for 
incorporating  the  predominant  slope  in  combination  with  obstacle 
crossing  in  the  Operational  Modules.  Thus,  for  the  Obstacle  Module  the 
terrain  input  may  be  characterized  as  illustrated  in  Figure  II. A. 2. 

There  is  a  restriction  in  OBS78B  that  the  combination  of  slope 
and  obstacle  approach  angle  may  not  exceed  the  vertical  for  any 
obstacle  flank  on  which  the  vehicle  may  rest. 
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FIGURE  I  1 •A-2  -  Obstacle  Geometry 


The  vehicle  is  restricted  to  two  units,  a  prime  mover, 
supported  by  suspension  assemblies  at  two  points,  and  a  trailer, 
supported  by  a  suspension  assembly  at  one  point  with  a  hitch  rigidly 
attached  to  the  prime  mover  about  which  the  trailer  may  pivot.  The 
suspension  assemblies  are  rigid  (no  springs  or  dampers)  and  may  be 
single  wheeled  or  "bogied",  which  for  the  purposes  of  OBS78B  means  two 
wheels  attached  to  a  rigid  member  which  pivots  about  its  center  at  the 
suspension  support  point.  This  motion  is  restricted  by,  possibly 
different,  pitch  up  and  down  limits  with  respect  to  the  frame  of  the 
vehicle.  Any  mix  of  single  wheeled  or  bogie  suspensions  may  exist  on 
the  prime  mover— trailer  combination.  The  wheels  are  also  assumed  rigid 
but  need  not  have  the  same  radii  for  all  suspension  assemblies. 
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However,  both  wheels  on  a  bogie  have  the  same  radius. 

Tracked  vehicles  may  be  simulated  by  a  double  bogie  wheeled 
vehicle  where  the  wheel  radius  is  the  road  wheel  radius  plus  the 
thickness  of  the  track.  The  bogie  centers  may  be  located  anywhere  the 
user  wishes;  reasonable  results  have  been  obtained  by  using  the 
location  of  the  second  and  second-f rom-last  roadwheel  centers.  The 
width  of  the  bogie,  defined  as  the  distance  between  the  centers  of  the 
two  wheels  on  the  bogie,  is  also  at  the  discretion  of  the  user; 
reasonable  results  have  been  obtained  by  choosing  the  distance  between 
two  road  wheels.  When  the  bogie  center  and  width  have  been  chosen,  the 
bogie  angular  limits  should  then  be  set  to  reflect  the  actual  road 
wheel  displaced  as  if  the  track  were  present  at  its  normal  tension. 
This  will  result  in  a  large  pitch  up  angular  limit  for  the  front  bogie 
and  a  smaller  pitch  down  angular  limit.  The  rear  bogie  will  have  the 
reverse  angular  limits. 

When  the  vehicle  data  has  been  read  by  the  program,  some 
initial  calculations  are  done.  These  are  described  more  fully  below. 
The  program  then  reads  the  obstacle  shape  and  calculates  hub  profiles. 
These  profiles  are  intended  to  simulate  the  path  taken  by  the  wheel 
centers  across  the  obstacle,  assuming  a  rigid  wheel  and  uninterrupted 
contact.  The  program  will  use  one  of  these  two  possible  hub  profiles 


across  a  mound: 
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FIGURE  II. A. 3  -  Hub  Profiles  Across  Mounds 
or  one  of  these  four  possible  hub  profiles  across  a  ditch: 


FIGURE  II. A. 4  -  Hub  Profiles  Across  Ditches 
It  may  be  observed  that  the  vertical  variation  of  the  hub 
profile  may  be  attenuated  when  compared  to  that  of  the  obstacle 
profile;  this  effect  may  occur  both  for  the  net  change  in  elevation 
and/or  the  rate  of  that  change.  This  attenuation  increases  as  the 
radius  of  the  wheel  increases  with  respect  to  the  obstacle  dimensions. 

Tracked  vehicles,  in  effect,  attenuate  obstacles  as  if  they 
were  equipped  with  very  large  wheels.  The  exact  equivalent  wheel 
diameter  which  attenuates  an  obstacle  as  does  the  tracked  suspension 
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element  is  not  readily  calculated,  and  for  any  one  vehicle  may  not  be 
constant  for  all  obstacles.  In  the  Obstacle  Module,  two  different 
wheel  sizes  are  used  to  simulate  tracked  vehicles: 

1.  for  a  flexible  track  the  radius  of  the  wheel  used  to 
calculate  the  hub  profile  is  set  at  one-half  the  distance 
between  suspension  element  support  points,  and 

2.  for  a  non-flexible  (girderized)  track  the  radius  of  the  wheel 
used  to  calculate  the  hub  profile  is  set  at  the  full  distance 
between  suspension  element  support  points. 

Figure  II. A. 5  shows  the  vehicle  parameters  used  in  the  module  and 
indicates  the  vehicle  configurations  which  can  be  simulated. 

Tracked  vehicles  pulling  trailers  are  not  simulated. 

All  horizontal  dimensions  are  positive  to  the  right  of  the 
hitch  and  negative  to  the  left.  All  vertical  dimensions  are  measured 
with  respect  to  the  ground  when  the  vehicle  is  empty  and  at  rest  on 
level,  hard  ground.  Vehicle  motion  is  assumed  from  left  to  right. 

N.B.:  Either  or  both  of  the  suspension  elements  of  the  prime  mover 
may  be  single  wheel  or  bogie  supports.  The  hitch  may  be  located  before 
the  second  axle  to  possibly  simulate  a  fifth  wheel. 

The  wheels  of  a  suspension  element  may  be  powered,  braked,  both 
or  neither.  Suspension  types  may  be  mixed  in  any  combination  but 
both  wheels  of  a  bogie  suspension  are  assumed  to  have  the  same  radius 
and  ability  to  be  powered  and  braked.  During  execution  of  the  program, 
however,  at  any  position  on  the  obstacle  either  all  braked  wheels  are 
braked  or  all  powered  wheels  are  powered. 
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B.  Coordinate  Systems 

Four  separate  coordinate  systems  are  used  in  0BS78B,  vehicle 
input  data  coordinates,  vehicle  coordinates,  ground  fixed  coordinates 
and  vehicle/ground  coordinates.  Each  system  is  specified  below. 

1.  Vehicle  Input  Data  Coordinates 


This  coordinate  system  (Figure  II.B.1)  is  centered  at  a  point 
on  the  ground  directly  under  the  hitch  when  the  vehicle  is  resting  on 
a  hard,  flat  surface  and  facing  toward  the  right  of  the  observer. 


Z 


All  vehicle  input  data  is  given  with  respect  to  this  coordinate 
system.  It  is  used  only  for  the  convenience  of  the  investigator j  all 
data  is  immediately  transferred  to  the  Vehicle  Coordinates. 
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2.  Vehicle  Coordinates 

This  coordinate  system  is  centered  at  the  hitch  and  moves  with 
the  prime  mover.  See  Figure  II. B. 2. 


Z 


The  x-axis  is  horizontal  and  fixed  to  the  vehicle  when  the  vehicle  is 
at  rest  on  hard,  flat  ground.  Thus  the  Vehicle  Coordinates  are 
initially  parallel  to  the  Input  Data  Coordinates  translated  vertically 
a  distance  of  the  height  of  the  hitch  for  an  empty  vehicle.  The  pitch 
angle  of  the  vehicle,  Q|  ^  is  in  effect  the  angle  the  vehicle  x-axis 
makes  with  the  Ground  Fixed  Coordinate  System. 

3*  Ground  Fixed  Coordinate  System 

This  coordinate  system  remains  fixed  to  the  ground  and  is 
centered  at  the  first  obstacle  profile  break  point.  Its  coordinates 
are  designated  with  primed  quantities.  The  z'-axis  is  positive  up, 
along  the  negative  gravity  vector,  and  the  x'-axis  is  positive  to  the 
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right.  See  Figure  II. B. 3* 


FIGURE  II.B.3  --  Ground  Fixed  Coordinates 


4.  Vehicle  Fixed-Ground  Parallel  Coordinate  System 

This  coordinate  system  is  centered  at  the  hitch  and  moves  with 
the  vehicle;  however  it  remains  parallel  to  the  Ground  Fixed 
Coordinate  System.  Initially  it  coincides  with  the  Vehicle  Coordinates 
when  the  vehicle  is  at  rest  on  hard,  flat  ground.  Its  coordinates  are 
designated  by  a  superscript  F. 

The  relationship  between  the  three  program  coordinate  systems 
is  illustrated  in  Figure  II. B. 4. 

C.  OBS78B  Vehicle  Preprocessor 

After  the  vehicle  data  is  read,  several  derived  vehicle 
descriptors  are  calculated.  These  descriptors  are  given  in  terms  of 
the  vehicle  coordinates. 
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FIGURE  11.8.4  --  Relation  of  Three  Coordinate  Systems 


Since  the  vehicle  load  distribution  is  given  for  an  empty 

vehicle,  a  combined  vehicle-load  CG  is  calculated  (superscript  e  means 
empty  vehicle) . 

The  empty  vehicle  weight  at  the  vehicle  CG: 

fcGl  =  -Fq,  -  Fq2 

The  x-coordinate  of  the  empty  vehicle  CG: 

^CG1=  -(Fqili  +  Fq2l2)  /F^GI 
The  empty  trailer  weight  at  the  trailer  CG: 

^CG2  =  -Fq3  -  Fho 

The  x-coordinate  of  the  empty  trailer  CG: 

^CG2  =  -F’q3l3/  ^^Bg2 

The  loaded  weights  at  the  combined  CG: 

^cGi  =  p’Bgi  - ^W-| 

^CG2  =  F'Bg2  ^2 
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The  coordinates  of  the  combined  vehicle/load  CG: 

^CGi  =  (f^Gi  x^Gi  -AWidi)/  FcGi 
^CGi  =  (f^Gi  z^Gi  "  AW^ei)  /Fqq^ 
where  i1  for  the  vehicle,  2  for  the  trailer. 

From  now  on  these  coordinates  of  the  loaded  vehicle  will  be  called  the 
vehicle  and  trailer  CG  coordinates. 

The  radius  vector  from  the  CG  to  the  hitch  in  polar  coordinates: 

•^hi  =  t^?Gi  +  z?Gi 
®ohi  =  arctan(zcGi/xcGi)  +  ^ 
where  i=1  for  the  vehicle,  2  for  the  trailer . 


FIGURE  I  I X .  1  --  Hitch  and  Trai ler  CG  Location 

N.B.:  Radius  vector  is  from  vehicle  CG  to  hitch  and  from  hitch  to 
trailer  CG. 

®ohi  is  adjusted  to  lie  in  the  interval  [-  tt  ,  tt  ]. 

The  polar  coordinates  of  the  vehicle  suspension  support  points: 

“"BCi  =  ^  ^ii  ”  ^CGI^^  ^'"i  -  ~  ^CGi)^  i-1,2 
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®BCi  =  arctan[  (r^  -  h  -  ZcGl)/  »  i=1,2 


FIGURE  I  I  .C  .2  —  Vehicle  Suspension  Support  Point  Locations 

The  following  are  calculated  for  each  suspension  element  which  is 
represented  by  a  bogie: 

The  polar  coordinates  of  the  wheel  centers  when  they  are  at  their 
limit  position  closest  to  the  vehicle: 
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are  the  coordinates  of  the  suspension  support  center  with 
respect  to  the  first  unit  CG. 

^Li  1  =[  (xB+(bi/2)cosPui  -xcGl)^  +  ( bi/2 )  sinB^i  -zcGi)^^^'^^ 

^Li2  =[(xB-(bi/2)cosB(ji  -xcgi)^  -(bi/2)sinpcii  -zcGl)^^^'^^ 

Thii  =arctan[(zg  +  ( bi/2 )  sinp^j  ^  -zcqi)  /(xb  +(bi/2)cosp,ji  -xcGl)] 

TLi2  =arctan[(zB  -(bi/2)sin  p^i  -zcg2)  /(^B  -(bi/2)cosBcii  -XCG2)] 
For  the  trailer,  these  polar  coordinates  are  given  with  respect  to 

the  hitch: 


r  r  2  ^2  n1/2 

'^h2  =  txcG2  +  ^CG2  -I 
®0h2  =  af'ctan  (zccp  /  XCG2) 
'’BC3  = 

®BC3  “  arctan  [(r^  -h  )/l^  ] 
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are  the  coordinates  of  the  trailer  suspension  support 
point  in  vehicle  coordinates. 

^L31  =  t^^hB  +(b3/2)cosPy2)^  ■*"  ^^hB  +( b3/2 ) sinp^^ ) 2  ]1/2 
=  arctan[(zhB  +(b3/2)sin^^J3)/(xhB  +(b3/2)cospu3)  ] 

^L32  =  [(xhB  -(b3/2)cosBd3)2  +  (z^g  _(b3/2)sinpd3)^^^^^ 

Tl32  =  arctan  [(z^g  -(b3/2)sinp^3)/(XhB  -(b3/2)cos^^J3)  ] 

The  effective  radius  of  the  wheels  to  be  used  in  the  hub  profile 
calculations  is  set  to 

r 

ti  “  ^'i  for  wheeled  vehicle  unit 

•"ti  =  1/2(1-|  -  I2)  for  tracked  unit  with  flexible 
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track 

>"ti  =  i"ti  “  •'i  tracked  unit  with  girderized 

track . 

Since  the  use  of  r^^^  niay  have  the  effect  of  raising  the  entire 
vehicle  far  above  the  ground  level,  the  result  may  be  that  no 
interference  between  vehicle  bottom  and  the  ground  will  be  recorded 
when,  in  fact,  it  would  actually  occur.  To  avoid  this  difficulty,  the 
difference  between  the  hub  profile  effective  radius  and  the  normal 
radius 

BPRFDL  =  r^.  _ 

is  used  to  lower  the  vehicle  bottom  profile. 

The  vehicle  bottom  profile  itself  is  specified  in  the  input 
data  as  the  location  of  breakpoints  given  in  the  vehicle  input 
coordinates.  These  breakpoints  are  then  shifted  to  the  vehicle 
coordinates.  The  preprocessor  calculates  the  length  and  direction  of 
the  radius  vector  to  each  of  these  breakpoints.  The  radius  vector 
originates  at  the  hitch  joint  for  both  the  prime  mover  and  the 
trailer . 


z 


FIGURE  II.C-6  --  Specification  of  Vehicle  Bottom  Profile  Breakpoints 
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In  Figure  II. C. 6,  the  bottom  profile  points  are  marked  with  heavy  dots 
and  calculated  as  follows: 


''oki  =[  +(yokl  -  BPSFDD^ 


“cki  = 

arctan  [(ycki 

-  BPRFDL)  /  Xcki] 

where 

k  =  1  denotes 

the  prime  mover 

k  =  2  denotes 

the  trailer 

and 

for 

i  =  1  »  •  •  •  » 

where  is  the  number  of  bottom  profile  breakpoints  on  unit  k.  The 

hitch  may,  but  need  not  be,  included  as  a  bottom  profile  breakpoint. 

This  completes  the  calculations  of  the  OBS78B  vehicle 
preprocessor.  The  predominant  slope,  0^^  is  read  and  then  the 
program  enters  the  obstacle  loop.  The  set  of  three  descriptors  for 
each  obstacle  is  read;  these  are  OBH,  OBAA,  and  OBW  as  defined  in 
section  III.B.  The  program  then  transfers  to  subroutine  OBGEOM  where 
the  hub  profiles  and  the  step  size  are  calculated. 

Before  transfer  to  OBGEOM,  a  check  is  made  to  determine  if  the 
sum  of  the  predominant  slope  and  the  obstacle  approach  slope  exceeds 
the  vertical.  If  it  does,  an  error  message  is  printed,  calculations 
for  the  obstacle  are  skipped  and  the  next  obstacle  is  read. 
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D.  Subroutine  OBGEOM 

This  subroutine  introduces  the  obstacle  and  hub  profile  index 
scheme  used  throughout  the  program.  For  an  obstacle/wheel  combination 
such  that  all  hub  profile  flanks  are  present  it  is  illustrated  in 
Figure  II . D. 1 . 


Observe  that  all  obstacle  breakpoints  except  1  and  10  have  two 
indices.  This  is  to  accomodate  the  hub  profile  breakpoint  numbering 
which  may  result  in  two  profile  elements  for  each  obstacle  breakpoint. 
The  obstacle  and  hub  profile  flanks  are  given  the  number  of  their  left 
end  breakpoint  index  as  shown  in  Figure  II. D. 2.  For  obstacle/wheel 
combinations  that  give  rise  to  hub  profiles  of  fewer  elements,  some 
hub  profile  breakpoints  may  have  up  to  six  indices. 

The  ground  fixed  coordinate  system  always  has  its  origin  at  the 


obstacle  breakpoint  2. 
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5 

FIGURE  II. D. 2  —  Obstacle  and  Hub  Profile  Flank  Indices 


The  approach  and  departure  flanks,  numbered  1  and  9 
respectively,  are  set  so  that  their  slope  is  the  predominant  slope, 

0g,  and  their  length  is  sufficient  to  accomodate  all  suspension 
elements  simultaneously  plus  1  inch.  The  vehicle  is  started  on  the 
approach  slope  .1  inches  from  initial  contact  with  a  mound  or  with  its 

front  wheel  contact  point  .1  inches  from  hub  profile  element  number  2 
for  a  ditch. 

Subroutine  OBGEOM  first  calculates  the  x ', z ' -coordinates  of  the 

obstacle  and  hub  profile  breakpoints  for  zero  predominant  slope.  It 

then  rotates  the  location  of  these  points  about  obstacle  breakpoint  2 

(the  x'z'  origin)  through  angle  6  '  xin^  i  ^  , 

5  lexc  jhg  length  of  each  of  the 

obstacle  and  hub  profile  elements  is  calculated.  In  addition,  for  each 
obstacle  element,  the  angle  with  respect  to  the  x»-axis  is  also  given. 

For  the  hub  profile  elements,  the  coefficients  of  the  general 
quadratic 

+  Dijx  +  Eijz  +  Fij  =0 
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are  calculated.  Here  the  subscript  j  refers  to  the  hub  profile  element 
number  and  i  refers  to  the  suspension  element  whose  wheels  generate 
it.  Since  hub  profile  elements  are  always  either  points,  lines,  or 

arcs,  _  q  and  =^ij  =  ^  arcs  whereas  Aj^j=  Bij  = 

=  0  for  lines  and  points. 

Finally,  OBGEOM  calculates  STEP,  the  distance  the  first  unit  CG 
will  be  moved  from  position  to  position  across  the  obstacle.  For  this 
version  of  the  Obstacle  Module,  STEP  is  constant  for  a 
vehicle/obstacle  combination  and  is  set  to  H9%  of  the  shortest  hub 
profile  element  length  or  1  inch,  whichever  is  greater. 

E.  Initial  Values  and  Position 

When  the  vehicle  and  obstacle  have  been  completely  defined,  the 

initial  position  of  the  vehicle  on  the  approach  slope  is  calculated. 

Also,  initial  values  for  the  solutions  of  the  force  balance  equations 

are  set.  These  variables  (the  solution  variables  for  the  force  balance 

equations)  are  defined  as 

XN(1)  =  overall  traction  coefficient 
XN(2)  =  normal  force  on  first  suspension  element 
XN(3)  =  normal  force  on  second  suspension  element 
XN(4)  =  normal  force  on  third  suspension  element 
XN(5)  =  horizontal  hitch  force  applied  to  vehicle 
XN(6)  =  vertical  hitch  force  applied  to  vehicle 

For  initialization,  XN ( 1 )  =  RT0W(1),  the  resistance  over  weight 

coefficient  of  the  first  suspension  element  (an  input  number);  XN(2), 

XN(3),  and  XN(4)  are  set  to  the  normal  load  on  those  suspension 

elements  when  the  vehicle  is  at  rest  on  level  ground;  XN(5)  '  = 

0,  and  XN(6)  =^^2*0  initial  hitch  load  when  the  trailer  is  at 
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rest  on  level  ground. 


To  position  the  vehicle,  the  following  calculations  are 
performed : 

a)  the  first  wheel  is  positioned  1/10  inches  before  its  second 
hub  profile  breakpoint 

^w11  =  ^h^2  -  cos(0^) 

^w11  =  Zh12  -  sin(0’) 

b)  for  a  single  wheel  first  suspension  element  the  bogie 
center  is  set  equal  to  the  first  wheel  center 

^BCI  =  Xwll 

^BCI  =  Zwii 

for  a  bogie  first  suspension  element,  the  second  wheel  is 
located  one  bogie  width  behind  the  first  and  the  bogie 
center  is  set  between  the  two  wheels 

^w12  =  ^wll  -  cos(e^) 

f  f 

^w12  =  Zwii  -  b-|  sin(0^) 

^BCI  =  +  Xw12)/2 

7  '  /  '  '  V 

^BCI  = 

Pi  =  arctan((zwii  -  Zw12)/  (xwll  -  Xw12)) 


R-2058,  VOLUME  II 
Obstacle  Module 


Page  54 


c)  the  vehicle  pitch  angle  is  set  parallel  to  the  approach 
slope  angle 

0 ]  =  arctan(Di 1/  -E i 1 ) 
the  vehicle  CG  location  is  determined 

^CGI  =  ^BCI  -  >^BC1  cos(0BC1  +®1  ) 

^CGI  =  2bc1  -  •'BCI  sin(0Bci  +61) 

and  the  location  of  the  second  suspension  bogie  center  is 
calcul ated 

^BC2  =  ^CGI  +  '"BC2  cos(0bc2 

t  f  f 

^BC2  =  ^CG^  +  ''BC2  sin(0BC2 

d)  for  a  single  wheel  second  suspension,  the  location  of  the 
wheel  center  is  set  equal  to  the  location  of  the  bogie 
center 

^w21  =  ^BC2 

7  f  ’ 

^w21  =  ZbC2 
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for  a  bogie  second  suspension  element,  the  bogie  angle  is 
assumed  equal  to  the  pitch  angle  of  the  vehicle  and  the  two 
wheel  centers  are  located  by 


^w21  =  ^BC2  +  (b2/2)  cos(e^  ) 
^w21  =  2BC2  +  (^2/2)  sin(0]  ) 
^w22  =  XBC2  -  (^2/2)  cos(0]  ) 
^w22  =  ZBC2  -  (^2/2)  sinO]  ) 


e)  the  hitch  is  then  located  by 


^h  =  XCG1  +  ^hl  cosCOohl  +®l) 

^h  =  2CG1  +  Rhi  sin(0oh1  +  9  i ) 

For  the  simulation  of  tracked  vehicles  there  is  included, 
as  suspension  elements  4  and  5,  the  front  and  rear 
spridlers,  respectively.  In  simulating  a  tracked  vehicle, 
front  spr idler/obstacle  interference  is  checked  after  step 
c)  above.  If  interference  is  found,  the  vehicle  is  moved 
away  from  the  obstacle  along  the  approach  slope  until  no 
interference  is  found.  Thus  the  front  spridler  is  located 
by 

^s  =  XcGl  +  •^BC4  cos(0bc4  +  ®l) 

•7'  '  ,1 

^s  =  ZcGl  +  >"BC4  sin(9BC4  + 
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These  two  coordinates  are  passed  to  subroutine  WHEELS  to 
calculate  how  far  above  or  below  the  front  spridler  hub 
profile  the  point  is  located. 

If  the  result  of  WHEELS  is  negative  the  spridler  is  below 
its  hub  profile  which  indicates  interference.  The  vehicle 
is  moved  backwards  on  the  obstacle  approach  slope  to  the 
point  where  hub  profile  element  S  intersects  hub  profile 
element  1  of  the  front  spridler.  The  slope  of  hub  profile 
element  S  is  given  by 

^^04  -  ^02  -  ^02  )  =  ^2* 

The  slope  of  the  front  spridler  hub  profile  element  1  is 

given  by  s^  =  tanSg  .  The  coordinates  of  the 
point  to  which  the  front  spridler  center  must  be  moved  in 
order  to  just  touch  the  obstacle  is  given  by  the  solution 
of  the  following  two  equations 

"  ^s)/(  X  -  Xg)  =  s^ 

(z  -  -  Xh42>  =  ^2 

The  distance  the  vehicle  has  to  be  moved  back  to  just  clear 
the  obstacle  is 

R  =  [(Xg  _x)2  +  (Zg  _z)2  ]1/2  , 

The  new  value  of  the  initial  coordinates  of  the  first  wheel 
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are  replaced  by  -Rcoseg,  z'„ii  -  Rsineg). 

The  calculations  from  b)  on  are  then  repeated. 

f)  once  all  the  values  describing  the  vehicle's  initial 
position  have  been  calculated,  the  trailer  (if  there  is 
one)  is  located.  Given  the  location  of  the  hitch 

(^h>zh)  the  length,  r3Q2  >  of  the  radius 

vector  from  the  hitch  to  the  trailer  suspension  support 
point,  the  subroutine  WHEEL2  locates  the  trailer  suspension 
support  point  2503)  on  the  hub 

profile  of  the  trailer  wheels.  For  single  wheel  trailer 
suspension,  the  wheel  center  is  set  to  the  suspension 
support  point 

^w13  =  ^BC3  single  wheel 

^w13  =  ^BC3 

For  trailer  with  bogie  suspension,  the  wheels  are 
located  half  a  bogie  arm  before  and  behind  the  support 
point  by 

^w13  =  ^BC3  +  (83/2)  cos(e2) 

^w13  =  ^BC3  +  (b3/2)  sin(02) 
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^w23  =  ^BC3  -  (83/2)  cos(02) 

^w23  =  ^BC3  -  (b3/2)  sin(e2) 
where  02=6]. 

g)  The  trailer  CG  is  located  by 

^CG2  ■  ^h  ■'■'^h2  ®oh2 

^CG2  =  ^h  +Rh2  sin  (  ^h2  +62) 

h)  and  the  angle  under  the  wheels  is  set  to  the  approach  slope 


for  wheel  j  of  suspension  element  i. 
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F.  Vehicle  Movement  Loop 

This  portion  of  the  program  calculates  the  clearance  or 
interference  between  the  bottom  frame  of  the  vehicle/trailer  and  the 
obstacle;  calculates  the  forces  between  the  wheels  and  the  surface  of 
the  approach  slope/obstacle/departure  slope  required  to  maintain  the 
vehicle  at  the  given  position;  and  then  moves  the  vehicle  to  a  new 
position  on  the  approach  slope/obstacle/departure  slope  such  that  the 
distance  of  the  CG  at  the  new  position  from  the  CG  at  the  previous 
position  is  equal  to  STEP.  The  program  then  returns  to  the 
clearance/interference  calculations. 

The  movement  loop  is  organized  around  three  major  subroutines 
CLEAR,  FORCES,  and  MOVES.  An  exit  is  made  from  the  loop  when  the  front 
wheel  clears  the  departure  slope. 

1 .  Subroutine  CLEAR 

The  relationship  between  the  bottom  frame  of  the  vehicle  and/or 
trailer  and  the  obstacle  profile  can  be  illustrated  by  Figure  II.F.1. 
Here  the  location  of  the  obstacle  profile  breakpoints  are  given  by 

^^oi>  ^oi  )  while  that  of  the  vehicle  frame 
breakpoints  are  given  by  )  .  The 

minimum  and  maximum  clearance/interference  between  frame  and  surface 
will  be  found  directly  under  a  vehicle  frame  breakpoint  or  directly 
above  an  obstacle  breakpoint.  This  is  a  consequence  of  approximating 
both  the  frame  profile  and  the  obstacle  profile  by  straight  line 
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FIGURE  ll.p.l  --  Relation  of  Bottom  Profile  of  Vehicle  to 

Obstacle  Profile 


segments  . 


The  subroutine  first  calculates  the  ^vki) 

for  the  current  position  and  attitude  by 

^vi  =  ^h  'cki  cos(  9  +  Q'cki) 

^vi  -  '"cki  sin(  0  +  o'cki^ 

where  k  =  1,2  is  the  vehicle  unit  number  and  i  =  designates 

the  points  on  the  frame  profile  of  unit  k.  The  routine  then  simply 
cycles  through  the  obstacle  breakpoints  to  determine  if  any  part  of 
the  vehicle  is  above  each  point  and  calculates  the  clearance  by 
linearly  interpolating  between  the  appropriate  vehicle  breakpoints. 
Similarly,  for  each  frame  profile  breakpoint,  the  obstacle  flank  under 
the  point  is  found  and  the  clearance  calculated.  The  minimum 
clearance/maximum  interference  is  then  found  for  the  current  position 
of  the  vehicle  and  an  index  is  set  pointing  to  that  point  which  gave 
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rise  to  the  minimum  clearance/maximum  interference. 

The  determination  of  the  overall  minimum  clearance  or  maximum 
interference  for  all  positions  of  the  vehicle  across  the  obstacle  is 
done  with  the  code  directly  following  the  call  to  CLEAR  in  the  main 
program . 

2.  Subroutine  FORCES 

This  subroutine  is  used  to  estimate  the  tractive  forces  needed 
to  overcome  obstacles.  This  is  done  by  evaluating  the  tangential 
tractive  forces  at  the  wheel/ground  interface  required  to  maintain  the 
vehicle  at  the  current  position  on  the  obstacle.  Subroutine  FORCES 
makes  use  of  the  equation  solving  subroutine  EQSOL  and  subroutines 
NFORCE  and  CALFUN.  The  tractive  force  evaluation  is  performed  for  any 
combination  of  single  wheel  suspensions  and  bogie  suspensions 
supported  on  both  wheels  or  on  one  wheel. 

To  simplify  and  speed-up  calculations  eight  assumptions  were 

made : 

1.  Tires  and  suspensions  are  rigid. 

2.  Bogie  beams  can  rotate  about  the  pivot,  but  do  not  deflect. 

3.  Bogie  beams  take  only  normal  forces,  the  tangential  forces 
and  torque  are  transmitted  to  the  frame  by  parallel  bars  (A 
schematic  version  of  such  a  bogie  suspension  is  shown  in 
Figure  II . F . 2) . 

4.  The  bogie  pivot  is  in  the  middle  of  the  line  connecting  the 
wheel  centers. 
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E  II 
le 


I  radius  is  the  same  for  all  wheels  on  a  bogie  suspension 

wheel  can  be  powered,  towed  or  braked  as  specified  by 
innnt  data. 

on  is  made  to  power  some  and  brake  other  wheels  at 


ts  of  power  or  brake  forces  can  be  specified  by  the 
WERR,  BRAKER)  in  the  input  data  to  allow  for 
soil  conditions  under  each  wheel. 


•f •  2  --  Schematic  of  Bogie  Suspension 


above,  it  is  assumed  that  normal  forces  to  the 
1  for  both  wheels  of  the  same  bogie  support.  The 
th  any  two  suspension  supports  on  the  main  unit  and 
ler  is  statically  determinant.  The  bogie  assembly 
the  frame  only  at  the  bogie  pivot  point. 
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This  routine  uses  the  vehicle  fixed-ground  parallel  coordinates 
x^,z^.  Linear  dimensions  are  measured  from  the  hitch  point 
parallel  to  the  ground  fixed  coordinates  x^  and  directions.  The 
hitch  point  is  the  origin  of  the  xf'jZ^’  coordinate  systems,  where 
the  x^^  axis  is  always  horizontal  and  the  z^  axis  is  vertical. 
Dimensions  forward  of  the  hitch  are  positive.  Dimensions  in  the 
z^-direction  above  the  hitch  are  positive,  below  the  hitch  are 
negative.  In  the  remainder  of  the  description  of  Subroutine  FORCES 
the  superscript  F  will  be  omitted. 

Based  on  previously  made  assumptions,  the  bogie  can  be  treated 
as  a  single  statically  determined  support  point.  In  this  case  even  the 
main  unit  with  two  bogie  supports  is  statically  determined.  The  sum  of 
the  forces  (ground  reactions,  hitch  forces  and  weight)  must  be  zero  in 
the  X  and  z  directions,  and  the  moments  produced  by  those  forces  about 
any  given  point  also  have  to  be  equal  to  zero.  For  convenience  the 
point  about  which  the  moments  are  summed  is  the  hitch.  The  hitch  is  a 
common  point  for  both  units  (main  and  trailer).  For  clarity,  forces 
are  always  shifted  to  the  wheel  center  and  rotated  to  be  parallel  to 
the  x-z  coordinates.  Forces  at  the  hitch  point  are  also  resolved  in 
the  X  and  z  direction  (the  hitch  does  not  transmit  a  moment). 

As  input  to  this  routine  the  main  program  and  subroutine  MOVEB 
supply  the  position  of  all  wheels,  bogie  centers,  bogie  beam  angles, 
bogie  beam  lengths,  wheel  radii,  surface  slope  angles  under  the 
wheels,  center  of  gravity  locations  and  weights.  Also  entered  are 
initial  estimates  for 
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XN(1)=  overall  coefficient  of  tractive  force  across  all 
wheels, 

XN(2)=  normal  force  under  the  first  wheel  of  the  first 
suspension  support, ( 

XN(3)=  normal  force  under  the  first  wheel  of  the  second 
suspension  support ,( F2-1 ) 

XN(4)=  normal  force  under  the  first  wheel  of  the  third 
suspension  support  (if  it  ex ists )  ,  ( ^ ) 

XN(5)=  horizontal  force  on  the  hitch  of  the  trailer 

^^HITCHx)  3'^^ 

XN(6)=  vertical  force  on  the  hitch  of  the  trailer  (PhITCHz^* 

N.B.:  The  last  three  terms  are  included  only  in  the  case  of  a  vehicle 
with  a  trailer. 

Subroutine  FORCES  uses  these  values  as  initial  values  in  an 
iteration,  controlled  by  EQSOL,  which  will  yield  new  values  for  XN(1) 
through  XN(6)  that  result  in  the  vehicle  resting  on  the  obstacle  in  a 
force  and  moment  equilibrium  state.  These  iterations  depend  on 
calculations  performed  by  two  subroutines,  NFORCE  and  CALFUN,  which 
essentially  evaluate  unbalanced  forces  and  moments  caused  by 
non -equ il ibr i um  values  of  XN .  The  separation  of  the  calculation  into 
two  subroutines  is  a  matter  of  programming  convenience.  The 
description  of  the  equations  below  does  not  distinguish  in  which 
subroutines  the  calculations  are  made. 
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a)  Coefficient  of  Tractive  Force 


For  wheel  j  of  suspension  support  i: 

^TFij=  XN(1 )*POWERRij»IPij  for  XN(1)  >  0 

or 


CTFij=  XN(1 )»BRAKERij*IBij 

where 


for  XN(1)  <  0 


CiFij 
POWERR^ j 

BRAKER^j 

1 
0 

1 
0 


IPij  = 


IBi  .  = 


=  coefficient  of  tractive  force 

=  Coefficients  for  distribution  of  tractive  force 
among  axles.  The  ratios  of  these  coefficients 
in  pairs  define  the  force  distributions. 

=  Coefficients  for  distribution  of  braking  force 
among  axles.  The  ratios  of  these  coefficients  in 
pairs  define  the  braking  force  distribution. 

,  if  wheel  can  be  powered 
,  otherwise 

,  if  wheel  can  be  braked 
,  otherwise. 


Note:  At  any  position  on  the  obstacle,  a  combination  of  some  wheels 
powered  while  others  are  braked  is  not  modeled. 

b)  Force  Relations  for  Single  Wheel  Support 


Given  normal  force,  tractive  force,  rolling  force, wheel  rolling 
radius  and  slope  under  wheel,  the  forces  and  the  moment  at  the  wheel 
center  indicated  in  Fig. II. B. 20  are  calculated  as  follows: 
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^zi  “  Force  at  wheel  center  in  z-direction 

MjL  -  Moment  reaction  reduced  to  wheel  center.  The  moment 

reaction  is  due  to  the  tractive  force  shift. The  rolling 
force  is  shifted  to  the  wheel  center  without  a  moment 
component. 

-  Wheel  rolling  radius 

Note:  For  a  single  wheel,  the  above  quantities  are  given  for  j=1. 

The  corresponding  quantities  for  j=2  are  not  used. 

c)  Force  Relations  for  Bogie  Support 

As  described  below  in  section  II. F. 3,  subroutine  MOVEB,  the 
vehicle  may  be  located  either  with  both  wheels  of  a  bogie  assembly  on 
the  ground  or  with  only  one  of  the  pair  on  the  ground  when  the  bogie 
angular  motion  limit  is  reached.  The  force  relations  are  described 
separately  for  these  two  cases. 

(1)  Both  wheels  of  the  bogie  support  on  the  ground: 

Assuming  that  the  normal  force,  tractive  force  coefficient, 
rolling  resistance  coefficient  and  all  needed  geometry  are  known,  the 
normal  and  the  tangential  forces  acting  on  the  bogie  beam  at  wheel 
center  are  described  as  follows  (see  Fig. II. F. 4); 


— — - ! 

FIGURE  II.F.4  --  Forces  on  Bogie  Suspension  When  Both 

Wheels  Contact  the  Surface 

The  angle  (interface  friction  angle)  that  the  resultant  force  vector 
under  the  wheel  makes  with  the  normal  to  the  under-wheel-slope  is: 

Yij  =arctan(C'ppij  -  CpRij). 

The  magnitude  of  the  force  vector  at  the  center  of  the  front  wheel 
on  the  bogie  is: 

^i1  cos(Yii). 

The  normal  force  to  the  bogie  beam  is: 

^NBi  =  f’il  *cos(  6^-,) 

where  : 

I 

^ij  =Vij  +Pi  -aij 

P^=  angle  of  bogie  beam  with  horizontal 
under-wheel-slope. 
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The  tangential  force  on  the  bogie  beam  due  to  the  first  wheel  is: 
^TBi1=  Fil  *  sin(fiii). 

The  equations  for  the  normal  force  and  the  tangential  force  to 
the  bogie  beam  due  to  the  second  wheel  are  calculated  next,  based  on 
the  previously  made  assumptions  that  the  normal  force  to  the  bogie 
beam  is  equal  for  both  wheels. 

Force  F at  the  second  wheel  center  is: 

^i2  =  ^NBi/  cos(S^2)  • 

The  tangential  force  for  the  second  wheel  is: 


^TBi2 

=  Fj^2  *sin(  6j^2)  • 

The  ev 

aluated  normal  and  tang 

ential  forces  and 

moment 

on 

the 

bogie 

beam  are  shifted  to  the 

bogie 

pivot  center  and 

rotated 

to 

the 

vehicl 

e  fixed 

-ground  parallel 

coordi 

nates . 

Forces 

at  the 

pivot  center  are 

: 

^TBi 

=  P'TBil  +  f’TBi2 

^i 

=  -2f’NBi  *sin(Bi) 

+FTBi 

*cos(P  ^ ) 

f'zi 

=  2FMBi  ^cosO^) 

^^TBi 

*sin(P i ) . 

Moment 

at  pi V 

ot  center  is: 

Mi 

=  ^TFi1  *^Ni1  *'"i1 

+  CTFi2  *f’Ni2  *'^i2 

where 

""ij  = 

rolling  radius  of 

wheel 

j  on  suspension 

support 

i . 

^xi’^zi  ~  forces  at  bogie  pivot  center 

=  moment  reaction  reduced  to  bogie  pivot  center 
Note:  The  same  rolling  radius  is  used  for  all  wheels  on  a 


R-2058,  VOLUME  II 
Obstacle  Module 


Page  70 


suspension  support 


(2)  Only  one  wheel  of  the  bogie  support  on  the  ground: 


Forces  at  the  wheel  center  are  evaluated  as  before  for  two 
wheel  bogie  support.  The  wheel  in  contact  is  designated  by  j.  In  the 
program  this  is  indicated  by  the  variables  SFLAG  and  NW.  The  final 
force  and  moment  equations  reduced  to  the  pivot  center  are: 

^xi  =  -f’NBi  *sin(Pi)  +FTBij  *cos(P-) 

^zi  =  ^NBi  *cos(pi)  +FxBij  *sin(Pi) 

Mi  =  CxFij  *FNij  *rij  i  FNBi  *bi/2 

where: 

+  if  front  wheel  of  bogie  assembly  is  on  the  ground  (j=1) 
if  rear  wheel  of  bogie  assembly  is  on  the  ground  (  j=2) 
b^  =  bogie  arm  length 


Tractive  force,  rolling  resistance  force  and  reaction  moments 
are  calculated  as  follows: 

^Tij  =  f’Nij  *  '"TFij  Tractive  force 

^Rij  =  f’Nij  *  CRRij  Rolling  resistance  force 

Mj^j  =  ^Tij  *  ^ij  Reaction  moment,  due  only  to  the 

tractive  force 


where: 

Fjj^j  =  Normal  force  under  the  wheel 
The  above  quantities  are  used  for  information  only,  they  are  not 
needed  by  the  rest  of  the  program. 
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d)  Force  and  Moment  Summation  for  Entire  Vehicle 

Sum  of  the  forces  in  x-direction  for  main  unit 

^Mx  =  fxl  +  fx2  +  fMCGx  -P'hx 
Sum  of  the  forces  in  z-direction  for  main  unit 

^Mz  “  ^z1  ^z2  ^MCGz  “  ^hz 

Sum  of  the  moments  around  hitch  point  for  main  unit 

=  (Ml  +F'x1  *^1  +fz1  *^1)  +  (M2  +P'x2  *^2  +^'z2  ’^^2) 

"  ^MCGx  *ZCGM  +  fMCGz  *xcGM 

where: 

(subscripts:  M-for  main  unit,  T-  for  trailer  ) 

^MCGx >  ^MCGz  =  Forces  at  center  of  gravity  in  x-direction 

and  z-direction  respectively  (fjkjcQjj  =  0) 

^hx>  ^hz  =  Force  at  trailer  hitch  point  (negative 

sign  for  main  unit,  for  single  unit, 
both  are  equal  to  zero  ) 

^cgm,  zcGM  =  ^  2  location  of  center  of  gravity  with 

reference  to  the  hitch  point  (  vehicle  fixed- 
ground  parallel  coordinates  ) 

The  additional  three  equations  for  the  main  unit  with  a  trailer  are: 
Sum  of  the  forces  in  x-direction,  for  trailer  only 

^Tx  =  fxS  +  ^TCGx  +  F'hx  ' 

Sura  of  the  forces  in  z-direction,  for  trailer  only 

^Tz  =^z3  ^TCGz  +P’hz 

Sum  of  the  moment  around  hitch  point,  for  trailer  only 
M^  =Mi  -  Fjj3  *Z3  +F23  *X3  -Fjcqjj  *ZCGT  +P'tCGz  *  ^CGT 
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where  forces  at  the  center  of  gravity  of  the 

trailer  in  the  x  and  z  directions  respectively. 

These  six  unbalanced  forces  and  moments  Fmx»  ^Mz»  ^M» 

Ffx,  Fxz  arid  Mt  are  all  driven  to  zero  by  adjustments  to  XN(1), 
f’NII,  Fn2i,  FN3i,Fhx,  F^z  (the  XN  array)  using  the  iterative 
procedure  of  subroutine  EQSOL  described  in  Powell  (1970). 

3.  Subroutine  MOVEB 

This  subroutine  advances  the  vehicle  to  a  new  position  on  the 
obstacle  profile  and  calculates  the  coordinates  of  the  wheels,  CG's, 
hitch,  trailer,  the  vehicle  pitch  angle  and  the  angle  under  the 
wheels,  all  at  the  new  position  and  attitude. 

MOVEB  makes  use  of  the  equation  solving  routine  EQSOL,  also 
used  by  FORCES,  to  calculate  the  position  of  the  prime  mover  (the 
vehicle)  such  that  all  the  wheels  are  on  their  hub  profiles  (unless 
they  are  elevated  above  the  hub  profile  by  restrictions  on  the  angular 
movement  of  the  bogie  arm  with  respect  to  the  frame)  in  such  a  way 
that  the  new  position  of  the  CG  is  a  distance  of  STEP  away  from  the 
prior  position.  The  value  of  STEP  was  calculated  and  set  in 
subroutine  OBGEOM .  The  independent  variables  of  these  equations  are 

^CG>  ^CG  single  wheeled  vehicle 

suspension  elements  and  for  those  positions  which  yield  all  bogie  arm 
positions  at  their  limits.  If  the  suspension  elements  are  bogies  and 
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their  equilibrium  position  is  between  their  angular  limits,  then  one 
or  two  additional  independent  variables  are  P  ^  and/or  P  2>  the 
angle  the  bogie  arm  makes  with  respect  to  the  vehicle  x-axis. 

Initial  estimates  for  these  three,  four,  or  five  quantities  are 
supplied  to  EQSOL;  the  equilibrium  values  of  these  variables  are 
returned  by  EQSOL  such  that 

[(x^gt  +  XpcGl)^  +  ^^CGI  +  =STEP 

and  the  vertical  distance  of  each  wheel  to  its  hub  profile  is  zero, 
all  within  an  overall  tolerance  of  about  one  inch  or  less. 

With  a  bogie  suspension  element,  three  possible  states  of 
support  exist: 

(1)  on  the  front  wheel  at  its  upper  (toward  the  vehicle)  limit 
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(4)  In  addition,  for  tracked  vehicles,  support  by  a  spridler 
could  be  substituted  for  an  entire  suspension  element. 


FIGURE  II.F.6  --  Spridler  Interference  for  Tracked  Vehicles 

If  the  rear  spridler  is  supporting  the  vehicle,  then  NW(2)  =  3. 
(In  case  (4),  the  "wheels”  of  the  tracked  vehicle  that  are  used  to 
model  the  track  are  much  larger  than  pictured.  The  small  wheels  are 
shown  for  illustrative  purposes  only.) 

Upon  entry  to  MOVEB,  the  program  assumes  case  (2)  for  all 

suspensions  which  are  modeled  with  a  bogie.  (•"BCi  ®BCi  and 

are  passed  to  EQSOL  to  locate  the  supports.)  This  may  result  in 

up  to  five  (NEQL  =  5)  independent  variables  and  equations  used  to 

locate  the  vehicle.  Upon  return  from  EQSOL,  the  following  values 

represent  the  location  and  attitude  of  the  vehicle  xAr-i 

Ob  I  > 

f 

^CG1>  and/or  ^2*  These  returned  values  of 
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P-)  and/or  a*"®  checked  to  be  within  their  limits:  <  Pj^ 

—  P  ui  >  i  =  ^  aiid/or  2.  If  no  violations  to  these  inequalities 
occur,'  the  position  and  attitude  of  the  prime  mover  is  considered 
final  and  the  routine  proceeds  to  calculate  the  position  of  the 
trailer,  if  there  is  one. 

If,  for  example,  P^  P^^  or  ,  a  new  entry 

is  made  to  EQSOL,  then  the  bogie  of  suspension  i  is  replaced  by  a 
single  wheel  support  with  ^  p.  replaced  by  R^i  i , 

^Li  1  >  ^ui  O'"  ^Li2»  '^Li2>  ^di  depending  on  which  limit  is 

exceeded.  The  number  of  independent  location  variables  and  equations 

is  now  reduced  by  one. 

This  procedure  is  repeated  until  no  bogie  angles  exceed  their 
limits  or  all  bogies  have  been,  temporarily,  replaced  by  single  wheel 
supports . 

In  case  a  tracked  vehicle  is  being  modeled,  the  location  of 
both  spridlers  is  now  calculated.  If  either  one  is  below  their  hub 
profile,  EQSOL  is  called  again  with  the  front  support  replaced  by  one 
located  at  •"bc4>  ®feC4  and/or  the  back  support  replaced  by  one  at 
'"bC5>  ®BC5*  Degrees  of  freedom  may  be  reduced  if,  as  shown  in 
Figure  II. F. 6,  the  vehicle  is  being  supported  by  a  spridler  rather 
than  a  bogie. 

Once  the  vehicle  location  and  attitude  are  returned  from  EQSOL 
all  wheel  and  suspension  support  positions  are  calculated.  This 
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calculation,  and  the  same  ones  performed  during  the  equation  solving 
done  by  EQSOL,  are  performed  by  a  subroutine  called  ELEVAT.  Given 

some  set  of  zcqi*  flags  indicating  on  what 

suspension  elements  the  vehicle  is  being  supported,  and  the  length 
and  direction  of  radius  vectors  from  the  CG  to  those  vehicle  support 
points,  ELEVAT  calculates  ^  ^  ^wi j  >  XBCi,  and  ELEV(i),  the  vertica 

distance  between  wheel  center  i  and  its  hub  profile  for  all  suspension 
elements  on  the  prime  mover. 

When  the  above  calculations  and  adjustments  result  in  a 
position  and  attitude  of  the  prime  mover  which  does  not  violate  any 
constraints  and  which  has  advanced  the  vehicle  CG  a  distance  of  STEP 
across  the  obstacle,  all  the  surface  angles  under  the  wheel  in  contact 
with  the  ground  are  calculated.  This  is  done  by  a  subroutine  called 
WHEEL1.  The  hitch  location  is  then  calculated. 

If  a  single  wheel  trailer  is  present,  subroutine  WHEEL2  is  used 
to  locate  the  trailer  wheel  on  its  hub  profile  maintaining  the  length 
of  the  radius  vector,  from  the  hitch  to  the  trailer  wheel 

center.  The  pitch  angle  of  the  trailer  and  the  location  of  its  CG  are 
then  calculated  and  a  RETURN  is  made  from  MOVEB. 

If  a  trailer  is  being  modeled  and  it  is  fitted  with  a  bogie 
suspension  the  trailer  is  first  positioned  on  the  obstacle  with  the 
front  wheel  at  its  upper  most  position  (  ^  u3)  using 

subroutine  WHEEL2  with  8^31  and  If  the  second  wheel  is 
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above  its  hub  profile,  it  is  concluded  that  this  is  the  proper 
position  for  the  trailer,  its  bogie  center,  pitch  angle,  and  CG 
location  are  calculated  and  MOVER  exits. 

If  the  second  wheel  is  below  its  hub  profile,  the  trailer  is 
positioned  on  the  obstacle  with  the  rear  wheel  of  the  bogie  at  its 
upper  most  position  (  p  ^  =  P  using  subroutine  WHEEL2  with 

^L32  ^L32‘  first  wheel  is  now  above  the  hub  profile, 

it  is  concluded  that  this  is  the  proper  position  for  the  trailer,  its 
bogie  center,  pitch  angle,  and  CG  position  are  calculated,  and  MOVER 
exits. 


If  the  first  wheel  is  below  its  hub  profile,  it  is  concluded 
that  the  proper  position  of  the  trailer  is  such  that  both  wheels  of 
the  bogie  are  in  contact  with  the  ground.  A  search  for  in  the 

interval  [  P^^*  ^  u3^  conducted  until  both  wheels  centers  are 

on  their  hub  profile  to  within  1/10  of  an  inch.  It  is  concluded  that 
this  is  the  proper  attitude  of  the  bogie  whereupon  the  location  of  the 
bogie  center  is  calculated  and  thus  the  pitch  angle  and  CG  location  of 
the  trailer  are  determined.  MOVER  then  exits. 
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III  INPUTS  AND  OUTPUTS 


A.  Vehicle  Data 

The  data  required  to  describe  a  vehicle  for  the  Obstacle 
Module,  OBS78B,  is  listed  below  together  with  the  file  formats 
required  . 

Most  of  the  descriptions  are  self-explanatory.  One  should  note 
that  the  equilibrium  load  and  center  of  gravity  location  (lines  12,13) 
should  be  those  of  the  empty  vehicle.  The  weight  and  location  of  the 
payload  are  entered  separately  (line  14,15).  The  payload  weight  may  be 
zero . 


The  data  used  to  describe  a  tracked  vehicle  requires  special 
attention.  In  OBS78B,  the  track  is  replaced  by  eight  wheels,  two  bogie 
pairs  on  each  side,  as  discussed  in  section  II. A. 1.  In  order  to  obtain 
the  kind  of  path  of  motion  expected  at  the  CG,  these  wheels  are  quite 
large.  In  fact,  the  effective  radius  is  the  distance  between  the  two 
support  points  if  the  vehicle  has  a  girderized  track  and  half  this 
distance  if  the  track  is  flexible.  These  wheels  are  placed  on  two 
bogie  suspensions  whose  horizontal  locations,  bogie  arm  width  and 
limits  of  angular  motion  are  those  specified  in  the  input  data  file 
(lines  8-11).  We  have  found  that  if  the  suspensions  are  too  far  apart 
the  resulting  enormous  wheels  can  contact  the  obstacle  far  fore  and/or 
aft  of  the  vehicle  resulting  in  false  clearance  information.  In 
particular,  the  contact  of  the  sprocket  or  idler  (spridler)  is  not 
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modeled  in  this  case.  If  the  suspensions  are  too  close, the  vehicle 
motion  is  not  properly  modeled.  For  the  M60A1,  placing  these 
suspension  supports  over  the  second  and  next  to  last  road  wheels  with 
the  bogie  arm  width  equal  to  the  road  wheel  spacing  seems  to  give 
reasonable  results.  To  model  the  relative  freedom  of  vertical  motion 
of  the  first  and  last  road  wheels,  the  limits  of  angular  motion  are 
different  in  the  clockwise  and  counter  clockwise  directions.  For  the 
M60A1,  we  allow  the  outer  wheels  about  four  times  the  motion  toward 
the  body  of  the  vehicle  allowed  for  the  inner  wheels. 

The  input  file  description  forms  Table  III.A.1.  The  variable 
names  are  those  in  the  program.  The  coordinate  system  for  the  input 
data  is  shown  schematically  in  Fig  III.A.1.  An  explanation  of  all  the 
coordinate  systems  used  in  the  Obstacle  Module  may  be  found  in  Section 
II. B,  above.  Sample  vehicle  input  data  files  for  wheeled  and  tracked 
vehicles  are  contained  in  Appendix  B. 
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TABLE  III. A. 1 

Vehicle  Input  File  Format-OBS78B 


Line 

No. 

Variable 

Name 

FORMAT 

Description 

1 

TITLE1 

A5 

This  line  contains  alphanumeric 

TITLE2 

A5 

vehicle  identification.  The  first 

TITLES 

A5 

15  characters  are  printed  in  the 
program  output. 

2 

NUNITS 

12 

Number  of  units 

NSUSP 

12 

Total  number  of  suspension  supports 
for  entire  vehicle 

NVEH1 

12 

Vehicle  type:  0-tracked 

1  or  greater-  wheeled 

NFL 

12 

Track  type:  0-  rigid 

1-  flexible 

3 

REFHT1 

F7.2 

Height  of  hitch  above  the  ground  when 
empty  vehicle  is  at  rest  (in.) 

HTCHFZ 

F7.2 

Vertical  force  on  hitch  of  trailer  at 
rest  (tongue  weight)  (lb.) 

4 

SFLAG(I) 

1=1 , NSUSP 

1012 

Suspension  type  at  support  I: 
0-independent  single  wheel 

1-bogie 

5 

IP(I, J) 

J  =  1 ,2 

1=1 , NSUSP 

1012 

Power  indicator  for  wheel  J  of 
support  I:  0-unpowered 

1 -powered 

6 

IB(I, J) 

J=1 ,2 

1=1 , NSUSP 

1012 

Brake  indicator  for  wheel  J  of 
support  I:  0-unbraked 

1 -braked 

7 

EFFRAD(I) 

1=1 , NSUSP 

10F7.2 

Effective  (loaded)  radius  of  wheels  at 
support  I,  i.e.  the  distance  from  the 
wheel  centers  to  the  contact  point 
(including  track  thickness  for  a 
tracked  vehicle) 

8 

ELL(I) 

1=1, NSUSP 

10F7.2 

Horizontal  coordinate  of  suspension 
support  point  I  with  respect  to 
hitch  ( in . ) 

9 

BWIDTH(I) 

1=1 , NSUSP 

10F7.2 

Bogie  swing  arm  width  at  support  I 
(0.  If  no  bogie)  (in.) 

10 

BALMU(I) 

1=1 , NSUSP 

10F7.2 

Limit  of  angular  movement  in  counter 
clockwise  direction  of  bogie  arm  at 

support  I  (deg.) 
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III.A.1  (Continued) 

Line 

No. 

Variable 

Name 

FORMAT 

Description 

1  1 

BALMD(I) 

1= 1 , NSUSP 

10F7.2 

Limit  of  angular  movement  in 
clockwise  direction  of  bogie  arm  at 
support  I  (This  angle  is  negative 
if  the  front  wheel  is  below  the  rear 
wheel  at  the  extreme  position)  (deg.) 

12 

EQUILF(I) 

1=1 , NSUSP 

10F7.2 

Equilibrium  load  on  support  I  when 
vehicle  is  empty  and  at  rest  (  If 
support  I  is  a  bogie,  this  is  the  sum 
of  the  loads  on  the  two  wheels  of  the 
bogie  pair)  (lb.) 

13 

CGZ1 

F7.2 

Vertical  position  from  ground  of 
center  of  gravity  of  unloaded 
first  unit  ( in . ) 

CGZ2 

F7.2 

Vertical  position  from  ground  of 
center  of  gravity  of  unloaded 
second  unit  ( in . ) 

14 

DEE1 

F7.2 

Horizontal  coordinate  of  the  first 
unit  payload  CG  with  respect  to 
hitch  ( in . ) 

ZEE1 

F7.2 

Vertical  distance  to  the  CG  of  the 
payload  of  the  first  unit  from  the 
ground  at  rest  (in.) 

DEE2 

F7.2 

Horizontal  coordinate  of  the  trailer 
payload  CG  with  respect  to  hitch  (in.) 

ZEE2 

F7.2 

Vertical  distance  to  the  CG  of  payload 
of  the  second  unit  from  the  ground 
at  rest  ( in . ) 

15 

DELTW1 

F7.2 

Weight  of  the  payload  of  the  first 
unit  (lb. ) 

DELTW2 

F7.2 

Weight  of  the  payload  of  the  second 
unit  (lb.) 

16 

NPTSC1 

12 

Number  of  breakpoints  used  to  describe 
the  bottom  profile  of  the  first  unit 

NPTSC2 

12 

Number  of  breakpoints  used  to  describe 
the  bottom  profile  of  the  second  unit 

17 

XCLC1 (I)  , 

YCLC1 (I) 

1=1 , NPTSC1 

10F7.2 

Pairs  of  X  and  Z  coordinates  of 
breakpoints  of  the  bottom  profile  of 
the  first  unit  at  equilibrium  with 
no  payload.  Five  pairs  are  entered  per 
line,  as  many  lines  as  needed  (in.) 
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Line 

No. 

NOTE: 

18 

NOTE: 

19 

20 


TABLE  III.A.1  (Continued) 

Variable  FORMAT  Description 

Name 


IF  A  ONE  UNIT  VEHICLE  IS 
(18)  IS  SKIPPED. 


BEING  DESCRIBED,  THE  FOLLOWING  LINE 


10F7.2  Pairs  of  X  and  Z  coordinates  of  the 
ICLC2(I)  breakpoints  of  the  bottom  profile 

I=1,NPTSC2  of  the  second  unit  at  equilibrium  with 

no  payload, five  pairs  per  line  with  as 
many  lines  as  needed  (in.) 

THE  FOLLOWING  LINES  (19  and  20)  ARE  INCLUDED  ONLY  FOR 
TRACKED  VEHICLES. 


SFLAG(I),  612 

IP(I) ,IB(I) 


1  =  4,5 

ELL(4) 

F7.2 

ZS(4) 

F7.2 

EFFRAD(4) 

C\J 

ELL(5) 

F7.2 

ZS(5) 

F7.2 

EFFRAD(5) 

F7.2 

Suspension  type,  power  and  brake 
indicator  (see  lines  4,5,6)  for  front 
and  rear  spridler  (1=4,5  respectively) 

Horizontal  coordinate  of  center  of 
front  spridler  with  respect  to 
hitch  ( in . ) 

Vertical  distance  from  ground  to 
center  of  front  spridler  (in.) 
Effective  radius  (distance  from  wheel 
center  to  contact  point  including 
track  thickness  of  front  spridler  (in) 
Horizontal  coordinate  of  center  of 
rear  spridler  with  respect  to 
hitch  ( in  . ) 

Vertical  distance  from  ground  to 
center  of  rear  spridler  (in.) 
Effective  radius  of  rear 
spridler  (in.) 


FIGURE  III. A. I 


Vehicle  Input  Data  -  Coordinate  System 
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B.  Terrain  Data 

Although  OBS78B  is  currently  to  be  used  a 
program  is  designed  to  allow  extension  to  in  lin 
Module  or  possible  expansion  to  linear  feature  s 
these  reasons,  the  topographic  slope  is  included 
although  for  present  purposes,  it  should  be  ente 
addition,  data  which  describes  the  terrain  vehic 
included  as  described  in  section  III.C  below. 

At  the  present  time,  the  obstacle  modeled 
trapezoid  and  hence  is  defined  by  three  numbers, 
angle,  height  and  width  (see  figure  II.A.2).  The 
of  entering  a  single  obstacle  or  a  sequence  of  o 
line  of  the  terrain  file  identifies  the  option  s 
to  extend  the  number  of  options.  The  value  of  th 
has  been  chosen  to  be  consistent  with  those  in  d 
WES  and  TARADCOM.  A  sample  terrain  input  file  is 
Appendices  . 


s  a  preprocessor,  the 
e  use  in  the  Areal 
ize  obstacles.  For 
as  a  terrain  input, 
red  as  zero.  In 
le  interface  is 

is  a  symmetric 
the  obstacle  approach 
user  has  the  option 
bstacles.  The  first 
elected.  It  is  planned 
e  option  identifier 
ata  files  existing  at 
contained  in  the 


R-2058,  VOLUME  II 
Obstacle  Module 


Page  85 


TABLE  III.B.  1 


Terrain 

File  Format-OBS78B 

Line 

No . 

Variable 

Name 

FORMAT 

Description 

1 

LSIG 

12 

Signal  of  data  entry  mode 

2 

GRADE 

F7.2 

Topographic  slope  (%) 

NOTE:  The  only  values  currently  allowed  are  LSIG=2  and  LSIG=3. 

If  LSIG=2,a  single  obstacle  is  expected  while  LSIG=3  indicates 
that  the  data  contains  a  sequence  of  obstacles. 

If  LSIG=2,  the  following  line  is  skipped. 

12  Number  of  obstacle  angles 

12  Number  of  obstacle  heights 

12  Number  of  obstacle  widths 

These  three  values  are  written  in  the 
output  file  for  use  by  the  Areal 
module.  OBS78B  does  not  need  them. 

4  OBH  F10.2  Obstacle  height  (in.) 

OBAA  F10.2  Obstacle  approach  angle  (deg.) 

OBW  F10.2  Obstacle  width  (in.) 

NOTE:  If  LSIG=3,  the  file  should  contain  a  line  in  the  above  format 
for  each  obstacle  to  be  traversed.  In  this  case,  the  last 
line  of  the  file  should  contain  all  9's.  (The  program 
terminates  if  OBH  >  99999-99) 


3  NANG 

NOHGT 
NWDTH 


R-2058,  VOLUME  II 
Obstacle  Module 


Page  86 


C.  Scenario/Control  Data 


For  the  nonce,  variables  to  describe  terrain/vehicle 
interaction  and  those  containing  control  information  for  the  computer 
system  are  read  from  unit  LUN4  (i.e.  the  program  contains  FORTRAN 
"READ(LUN4,f )  X"  statements,  with  f  the  FORMAT  label  and  X  the 
variables).  When  the  program  is  run  interactively,  the  variables  are 
entered  from  the  terminal. 


The  first  entry  is  DETAIL  (FORMAT-12),  the  output  detail  level 
indicator.  At  present  the  following  output  levels  are  implemented. 

0  Only  the  minimum  clearance,  maximum  force  and  average 

force  for  each  obstacle  are  reported. 

1  An  additional  output  file  is  opened  for  detailed 

output.  At  detail  level  1  or  greater,  the  vehicle  and 
terrain  input  data  are  echoed  to  this  detailed 
output  file. 

4  In  addition  to  the  level  1  data,  the  clearance  history 

is  reported  (i.e.  the  minimum  clearance  or  maximum 
interference  at  each  step  in  the  traverse  and  its 
location  on  the  vehicle  or  obstacle). 

8  In  addition  to  the  level  4  data,  intermediate 
calculations  at  the  end  of  each  major  subsection 
(e.g.  clearance  computation,  force  balance,  movement  ) 
are  reported  from  the  main  program. 

9  In  addition  to  the  above,  the  final  computations  in 
the  movement  and  clearance  subroutines  are  reported. 

10  At  this  level  intermediate  results  are  reported  from 
the  subroutines  as  well  as  at  the  transition  points 
selected  for  lower  levels.  This  is  the  level  normally 
required  to  debug  the  program.  A  complete  report  of 
each  step  is  available.  Care  must  be  used  as  traversal 
of  a  single  obstacle  can  produce  more  than  100  pages 
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of  output  at  this  level. 

All  level  10  output  is  also  written  at  level  11  as 
well  as  a  report  on  every  call  to  the  iterative 
non-linear  equation  solver.  About  60%  more  output 
is  produced  than  at  level  10. 

The  final  two  lines  are  the  vehicle/terrain  interaction  data. 
First  is  a  line  containing  the  limiting  coefficient  of  friction  for 
each  assembly  (FORMAT  3F7.2).  In  this  edition  of  the  Obstacle  Module, 
this  data  is  not  used.  The  last  line  contains  the  rolling  resistance 
coefficient  for  each  assembly  (FORMAT  3F7.2). 

As  this  section  is  designed  for  interactive  users,  each  of  the 
READ  statements  is  preceded  by  a  prompt. 
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D.  Output 

The  output  of  OBS78B  consists  of  three  files,  one  of  which  is 
optional.  These  contain  control/execution  information,  the  basic  model 
output  and  detailed  model  output  respectively.  Each  is  described 
below. 

1.  Control/Execution  Report 

Several  lines  of  output  are  generated  for  the  guidance  of  the 
interactive  users.  These  lines  appear  at  the  terminal  or  in  a  log  file 
in  the  case  of  a  batch  run.  The  first  few  prompt  the  user  to  provide 
the  scenario/control  information  described  in  the  previous  section. 
Next  the  first  identification  line  of  the  vehicle  data  file  is  output. 
As  each  obstacle  in  the  terrain  file  is  completed,  this  is  reported 
so  that  the  interactive  user  knows  how  far  the  program  has  progressed. 
In  addition,  warning  and  error  messages  may  be  written.  In  particular, 
in  certain  cases  an  informational  message  is  given  about  the  error 
from  the  EQSOL  subroutine  although  this  error  is  relatively  small  and 
the  results  are  satisfactory. 

2.  Basic  Output 

The  final  results  of  OBS78B  are  the  minimum  clearance  (or 
maximum  interference)  between  the  vehicle  and  the  obstacle  during  the 
override,  the  maximum  propulsive  force  required  during  the  override 
and  the  average  propulsive  force  to  override  the  obstacle.  For  ease  in 
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using  this  data  as  part  of  the  vehicle  data  file  for  NRMM  (see  Volume 
I,  Section  III.B)  the  first  six  lines  of  the  output  file  will  contain 
the  number  of  height  values,  angle  values  and  width  values  from  the 
terrain  input  file  (section  III.B),  when  appropriate  with  identifiers. 
Then  a  header  is  printed  followed  by  the  output  and  the  corresponding 
terrain  input  in  the  format  required  for  the  vehicle  data  file  for 
NRMM. 

3.  Detailed  Output 

As  described  before,  the  user  of  the  Obstacle  Module  may  choose 
to  obtain  an  output  file  containing  some  of  the  results  of  the 
computations  performed  in  modeling  the  override  of  the  obstacle.  The 
intent  is  to  allow: 

1.  Verification  that  the  input  data  is  properly  formatted  and 
correctly  read  (level  1) 

2.  Examination  of  the  clearance  history  to  identify  any  points 
on  the  vehicle  which  appear  to  be  problems  (level  4) 

3.  Examination  of  the  flow  of  computation  to  understand  the 
geometry  and  force  results  and  relate  them  to  reality 
(level  8) 

4.  Generation  of  sufficient  data  to  permit  program  verification 
and  debugging  (levels  10  and  11). 


Care  must  be  taken  in  selection  of  the  output  level  for  this 
program  and  that  for  the  Operational  Modules,  NRMM,  since  the  higher 
levels  cause  very  large  amounts  of  data  to  be  written.  We  would 
expect  levels  8  through  11  to  be  selected  only  for  a  single  obstacle, 
not  for  runs  with  a  multi-obstacle  terrain  file.  An  output  level 
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providing  a  force  history  is  planned  and  several  levels  are  unassigned 
to  provide  for  expansion.  Most  of  the  output  records  written  to  the 
detailed  output  file  contain  an  identification.  These  identifiers  are 
listed  in  Table  III.D.1  together  with  the  subroutine  from  which  the 
record  is  written  and  the  output  levels  at  which  the  record  would 
appear.  In  the  table,  these  identifiers  are  grouped  by' the 
originating  subroutine  and  further  arranged  in  order  of  placement  in 
the  program  (which  corresponds  reasonably  well  to  the  order  of 
appearance  in  the  output). 

Since  the  detailed  output  is  intended  primarily  for  the 
experienced  analyst/programmer  to  use  in  uncovering  anomalies,  it 
would  normally  be  used  with  a  copy  of  the  program  and  it  is  felt  that 
the  headers  used  as  pointers  to  the  appropriate  place  should  suffice 
as  labeling.  The  clearance  data  which  is  produced  in  level  4  output, 
however,  is,  hopefully,  of  potential  use  to  vehicle  designers  and 
design  evaluators. 

This  output  (labeled  MAINC)  at  each  step  is  a  line  of  five 
numbers,  viz.  the  variables  ILOC,  CLRNC,  CLRMIN,  IDX  and  IDC.  The 
first,  ILOC,  is  the  index  of  the  step.  The  second  is  the  minimum 
clearance  or  maximum  interference  (in  inches)  at  that  step.  CLRMIN  is 
the  minimum  clearance  or  maximum  interference  found  at  all  steps  from 
the  initial  position  to  the  current  position.  The  last  two  numbers, 
IDX  and  IDC  are  indices  which  contain,  encrypted,  the  location  (on 
vehicle  or  obstacle)  at  which  CLRNC  and  CLRMIN  respectively  are 
obtained.  As  explained  in  section  II.F.1,  at  each  step  of  the  obstacle 
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traversal,  clearances  are  checked  at  the  obstacle  breakpoints,  the 
vehicle  clearance  array  breakpoints  and  the  vehicle  hitch.  The 
minimum  is  the  reported  clearance,  CLRNC.  If  this  occurs  at  the  Nth 
obstacle  breakpoint,  the  value  reported  in  IDX  is  N.  If  the  minimum 
occurs  at  the  Nth  breakpoint  of  the  first  unit's  clearance  array,  the 
value  of  IDX  is  10,OOON.  For  a  minimum  at  the  Nth  breakpoint  of  the 
second  unit's  clearance  array,  the  value  of  IDX  is  100N.  If,  finally, 
the  minimum  is  found  at  the  hitch  point  (which  is  checked  separately), 
the  value  of  IDX  is  1,111. 


R-2058,  VOLUME  II 
Obstacle  Module 


Page  92 


TABLE  III.D. 1 


Detailed  Output  Headers  -  OBS78B 


Header 

Originating 

Subprogram 

Level 

Descriptive 

Text 

OBS78B 

1  or  greater 

TERRI 

0BS78B 

1  or  greater 

NEW  OBSTACLE 

OBS78B 

1  or  greater 

MBACKOFF 

OBS78B 

10,11 

MINIT1 

OBS78B 

8-11 

MINIT2 

OBS78B 

8-11 

MAINC 

OBS78B 

4,8-11 

MAIN1 

OBS78B 

10,11 

MAIN2 

OBS78B 

10,1  1 

MAIN3 

OBS78B 

8-11 

MAIN4 

OBS78B 

8-11 

MAIN5 

OBS78B 

8-11 

MAIN? 

OBS78B 

1  or  greater 

OBGI 

OBGEOM 

10,11 

— 

OBGEOM 

10,11 

— 

OBGEOM 

9-11 

K,I 

OBGEOM 

10,11 

OBGEOM 

9-11 

STEP  SIZE 

OBGEOM 

1  or  greater 

CLEARO 

CLEAR 

10,11 

CLEAR1 

CLEAR 

10,11 

CLEAR2 

CLEAR 

10,11 

CLEARS 

CLEAR 

10,11 

04 

CLEAR 

10,11 

VI 

CLEAR 

10,11 

V2 

CLEAR 

10,11 

V3 

CLEAR 

10,11 

HI 

CLEAR 

10,11 

H2 

CLEAR 

10,11 

H3 

CLEAR 

10,11 

T1 

CLEAR 

10,11 

T2 

CLEAR 

10,11 

T3 

CLEAR 

10,11 

MIN 

CLEAR 

9-11 

SSQ 

FORCES 

10,11 

XN 

FORCES 

10,11 

XPH 

FORCES 

10,11 

X 

FORCES 

10,11 

Z 

FORCES 

10,11 

CGX(I) ,CGZ(I) 

FORCES 

10,11 

ALPHA 

FORCES 

10,11 

CGFX(I) 

FORCES 

10,11 

CGFZ(I) 

FORCES 

10,11 

Comments 


Echo  of 
vehicle  input 
Terrain  input  echo 
Terrain  input  echo 


Clearance  history 
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Header 

TABLE 

Originating 

III.D.1  (Continued) 

Level  Comments 

FHX,FHZ 

Subprogram 

FORCES 

10,1 1 

SFLAG 

FORCES 

10,1 1 

NW 

FORCES 

10,1 1 

RR 

FORCES 

10,1 1 

BETA? 

FORCES 

10,11 

BWITH 

FORCES 

10,1 1 

BN 

FORCES 

10,1 1 

BT 

FORCES 

10,1 1 

CRR 

FORCES 

10,1 1 

CTF 

FORCES 

10,1 1 

FN 

FORCES 

10,1 1 

RF 

FORCES 

10,11 

TF 

FORCES 

10,11 

FX 

FORCES 

10,11 

FZ 

FORCES 

10,11 

PX 

FORCES 

10,11 

PZ 

FORCES 

10,11 

PM 

FORCES 

10,11 

M0VE2 

MOVEB 

10,11 

MOVES 

MOVEB 

10,11 

MOVESM 

MOVEB 

10,1 1 

MOVES5 

MOVEB 

10,11 

MOVE1 1 

MOVEB 

10,11 

M0VE12 

MOVEB 

10,11 

M0VE21 

MOVEB 

10,11 

M0VE22 

MOVEB 

10,11 

MOVEA3 

MOVEB 

10,1  1 

MOVEA4 

MOVEB 

10,11 

MOVEA5 

MOVEB 

10,11 

MOVEA5A 

MOVEB 

10,11 

MOVEA5B 

MOVEB 

10,11 

MOVEA6 

MOVEB 

10,11 

ELEVAT1 

ELEVAT 

10,11 

ELEVAT2 

ELEVAT 

10,11 

ELEVAT3 

ELEVAT 

10,11 

ELEVAT4 

ELEVAT 

10,11 

WHEELSO 

WHEEL2 

1 1 

WHEELS1 

WHEEL2 

1 1 

WHEELS2 

WHEEL2 

1 1 

WHEELS/ 1 

WHEELS 

1 1 

WHEEL3/2 

WHEELS 

1 1 

WHEEL3/3 

WHEELS 

1 1 

%EQSOL: 

EQSOL 

1 1 
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PA6E  A- 2 


C  PRGGPAW  CeS78B 


VEHiCLF-CbSTACLE  INTERfERENCE  MOCEL  ICCOiNG  UNQPTiMIZEDI 

DETERMINES  INT  ERFERENC iyCL BAR ANC E  BETiJEEN  2-DIMENS-IONAL 
VEHICLE  FRCFILE  AND  OBSTACLE  PROFILE  CF  JHAPEZOIC  SHAPE. 
DETERMINES  TRACTION  FORCE  PECUiREC  TG  SURMOUNT.  ACCOUNTS 
FOR  ARTICULATION  IN  PITCH  fLANE,  BOGIES  ALLOWED 
UN  ALL  SUSPENSIONS,  BASIC  AsNALYSIS  PPCCECUREA  SOLUT  ION  OF 
EOUATICNS  CF  STATIC  EQUILJBRIUM  FCR  SECUENTIAL  PLACE¬ 
MENTS  OF  VEHICLE  CN  OBSTACtE  TO  YIELC  TANGENTIAL  FORCES 
ANC  POSITICN  OF  VEHICLE  CLEARANCE  CONTOUR  WITH  RESPECT 
10  OBSTACLE. 

L0UT=DETAIL  tS  OUTPUT  DETAIL  LEVEL  INCiCATCR 
DETAIL  =  ONLY  0780UT  FILE  WILL  BE  WRITTEN 

DETAIL  .GE-  1  078DBG  PILE  WILt  BE  WRITTEN 
DETAIL  =  4  CLEARANCE  PiSTQRY  WRITTEN 

uETAIL  =  8  MAJOR  SUBSEOTICN  RESULTS 

DETAIL  =  9  SUBROUTINE  TRACE 

DETAil  =  liS  ALL  VARIABLES 


PHOGRAP  U8S78B  (  iNf  UT=15;d,QUTPUT=  l5ii5,TAPE5=INPUT  ,T.APE6=0UTPUT  | 
^  IAPEl  =  15k3,TAPE20  =  15iZ»rAPE21=i5B,TAPE22  =  150l 
COMMCN  ALPHA (5,2), 

4-  BALMCi  3  )  .BALMUI  3)-, 

BETA(3I,  BETAP(3»  ,  BNI  Jl  »  BR  AK  ERI  5 , 2 BTI 3 , 2  »  #  BWIDTHI 3  )  , 

4-  C0SAI3,2*  ,COSb(  3*,CCSGI3*2),CGFX4(2T,CGFZ<2»  , 

4-  CGXI  2J  ,CGZI  2)  ,CGPYI  21,CRR(  3,  2  ♦»  CTF<  3,2  )  , 

4-  EFFkAOl  5  >  ,ELL<  5»  , 

FHX,  FHZ,  FN(3,2  )  , 

4-  HAC  5,9)  ,HB(5 ,9»  ,FC(.5*9)  ,HD  J  5,9  I  ,HE.<  5,  91  ,HF  15, 9T  , 

4-  HFLi  5,9J  ,HXI5,10),hZ*5,10l, 

4-  GAPMA(3,2)^ 

4-  IBIS  ,21  ,  IP  I  5,21,  IH<  5,12  I  „ 

4-  LGUT,LUN6, 

^  NSUSF,NGNITS,Nwl5)  ,PW2I5), 

4-  aA(9*,0FL(9)  ,UX(  101  ,CZU0)  , 

4-  PM(3  I,POWERRI  5,4  )  ,PXI3),PXPCG43>,PZi(3T,PZPCGl3*  , 

+  RbCl  ,RbC2,RRJ  3,2), 

4-  SCALE(6)  .SFLAG(5i,SlNA(  3,2), SINe43>, STEP, 

+  THeTBi,TH£TB2  , 

4-  X{5)  ,XPBC(5I  ,XPW45,2P# 

4-  ZIS  )  ,ZPBCI  5)  ,ZPRCF4  5,2  »  ,Z  PWi  5, 2  ) 


DIMENSION 

4-  CAWinS  )  ,CAW2I  15)  ,CFWU  15  »  ,CRW2n5  I, 
4-  EOUILF45)  ,eFTRAD45)-, 

4-  FMU(3), 

4-  PGW(3,2), 
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o  o 


VULU  f'E  I  I  PASE  A 

LISTING  OF  PROGRAM  QBS7bB 


<-  RBCI  b)  .RHTCHI  ,  PT  Ckrl  3  I  ,  ftW  L  I  Ml  J  ,  2  J  • 

THETA12I  ,THfcTA0(  5»  ,  ThET0H<2),TWLIM»(3,2l» 

+  XCLCUii>»,XCLC2(  151  #XM6J  ♦XPCGl  2»,XPRF1201# 
+  YCLCl  (i5i,VCLC2(  151  ,XPRFl2fe})» 

<■  ZPCG  (2  )  ,  ZS(5  » 


uUUBLE  PRECISICN  VEFGAT 

integer  sflag, detail. 

REWIND  1 
REWIND  20 
Rewind  21 

REWIND  22 

CALL  CCNNECl  5LINPUT  > 

CALL  CCNNECl  GLOUTPUT  » 

L  INITIALIZATION  OF  I/C  UNITi 
C  PROGRAM  SUMMARY  DATA 
LUN1=2  2 

C  TERRAIN  OBSTACLE  DATA 
LUN2=2  1 

C  VEHICLE  DATA 
LUN3=2  fe 

C  CONTROL  INPUT  FILE 
LUN4=5 

C  EXECLTiON  PEPuRT  FILE 
LUN5=6 

c  diagnostics 

LUN6=1 

C 

PI  =  3  .141  5V265 
PIM2=P1«2. 

PI  C2  =Pl/2. 

K1  =  0 
kAF  =  ii.5 
C 

WRITE!  LUN5,10} 

10  fcrmat(20h  print  ouibuT;  level  » 

READILUNA, ii I  DETAIL 

11  FORMAT(12) 

WRITE(LUN5,15  » 

head  (LUNA, 4020)  f  MU  !  U  ,  FMU  (  2  »  »  FMUl  3  ) 

WRT  TEl  LUN5,16  ) 

READ  (LUN4f  402  0)  RTG  R  U  )  ,  RTCW I  2  )  ,RT  GW  !  3 1 
13  F0RMAT{34H  FRICTION  COEFFICIENTS  BY  ASSEMBLY! 

16  FORMAT (43H  ROLLING  RESISTANCE  CCEFfCIENTS  BY  ASSEMBLY) 

LOUT  =OET AIL 
C  READ  IN  VEHICLE  DATA 
C 

READ  (LUN3  ,4000)  T ITL  fii  ,  T  ITLE  2,  TITLEi 
WRI TE( LUN5,400a)  TlTLEl ,T I TLE2f TITLES 
400^^  FORMATOAb) 

4  010  FORM  ATI  1012) 

4020  FORMAT  (i0F7. 2  ) 

C 


96 


«-2«J58,  VOLUNE  11 
listing  of  PFOGRAM  UeS78B 


bO 


85 

1  k)0 


115 

C 

C 

C 


120 


kEAD(LUN3,4010> 
READ (LUN3,4020 I 
READ  (LUN3, 40101 
READaUN3»4010) 
READ  (LUN3,4010) 
REAO1LUN3,4020» 
READILUNji.4020> 
REAC-(LUN3.,4020» 
REAC(LUN3, 40201 


NUNlfS#N5USP»NVEhl ,NFL 
FEFFIl ,FTCHFZ 
iSFLAGI  I» ,  I  =  1.NSUSP» 

U  Jit  J=l»  ^l»l=ltNSUSPI 

(( lElttJl  ,J=1,21,I=1,NSUSPI 
iEFfFAO<I.ltI  =  l  fNSUSPl 
4ELL<K  )*'I  =  1  iNSUSPI 
( BrtlETh4ai,I=l,NSUSPl 
IBALPUI I1»I=1 tNSUSPl 


RtAO<LUN3, 40201  (BALROt  II ,  i  =  It  NSUSPl 
READCLUN3t402  01  iEQtltFI  I»  tI=l»lSUSPI 
RE  AD  (LUN3#4020>  CGZ1#CGZ2 
CGZl  =CGZ1-REFHT1 
CGZ2=CGZ2-REFHT1 

READILUN3*4020>  CEEl»Zt;Ei»CEE2,ZtE2 

ZEEi=ZE£i-REFHTl 

ZEE2=ZEE2-ReFHTl 

R  EAD(LUIM3, 40201  CELTM  1, DE LTW2 

READtLUNS, 40131  NPTSCi  »NPTSC2 

kEAD(LUN3t4020l  (XClCil  M  ,  YCLCU  Il»  I=1,NPTSC1» 
DO  80  1=1, NPTSCI 
YCLCK  t1=YCLC1 (I 1-REFhTl 
IF (NLNITS.EQ. 1»GC  TC  100 

READ4LUN3t40  20 )  4XCtC2( I > , YCLC2<  H  1 1= 1 »NPT SC2I 
DU  85  I=1,NPTSC2 


YCLC2I  I.»  =YCLC2  (  1 1-R  EFHT  l 


CONTINUE 

IF<NVEH1,NE.0>  GCTC  115 

READILUN3t40  10>  (SFtAGI  IJ  ,  IPI I  tlU  164  U  1  l,l=4t5> 
REAO4LUN3,4020»  4  ELL<H1,ZS<  U  t  EFFRADi  21,  1=4,51 
ZS44)=ZS(4>-REFHT1 
Z  S(5  1=ZS  (51  -REFHTl 
CONTINUE 


OBS7b  VEHICLE  PREPBCCESSCR 


IF(NUNiTS.GE.^>  GCTC  120 
HTCHFZ=!(;  . 

ECUILF(31  =  0. 

CGMY42i =0. 

CGFX42,J  =0.. 

LGFZ(2  >  =0, 

CGX( 2>=^. 

CGZ4  21  =0  » 

GGF,Zl=-EUUlLF(i»  -EGUCLF4  2» 

CGXl  =-I  EQU  rLF4  11  <-ELL41 1  ♦EOUXLf  (  2l*ELL  421 1/CGFZi 
CGFZ2=-EOU  ILF4  3I--HTCHFZ 
CGX2=0  ► 

IFCNSUSP  .GE.  31  CGX2=- EQU I LFl 3 » *ELL4 3 1 / CGFZ2 
CGFZ (I )=CGfZl-DELTrtl 

CGX(  1)  =  {  CGFZ1«‘C6X1-CELTVJ1<‘C£E1  )  /CGFZ41  1 
lGZ(  ll  =  (CGFZl«'CGZi-CBLTWl«ZEEll/CGFZ41i 
CGFXd  1  =0. 

CGPY  (1  >  =  0. 
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o  o  o  C'  O  O  O  O  C'; 


VULU^'e  II 

LIFTING  UF  PROGRAM  GESTBE 


kHTCP(  1  l  =  SQRT(  GGXl  1  Ili^a+CGZi 

FOLLOWING  CISTANCES  ANC  AhCLES  WRT  CG 

ACG=  ATN2  ICGZi  U,  CGX  (  li  i 
THEri3H<i  l=ACG+PI 

SET  ANGLE  CF  VECTOR  FRCM  CC  TO  HITCH  EETwEEN  -PI  AND  PI 

IFITFETiJHiH  .GE.flT  ThETiSH { 1  )  =  ACG- PI 
DU  122  I  =  l«2 
XB=ELL(!»-CGX(1I 
Z3=-REFHT1  +  EFFRACI  Ii-<CGZi(l) 

RbC  (  H=SORT  (  XEs-XEi-Z  e^ZBI 
THETA0(  I  )=ATNz(Ze,XE> 

RWLI  R(  I  ,  l»-  =  KbC(  I  ) 

TWLIM(  I  ,ll=THETA0n  » 

RWLIMI  1 , 2)=ki. 

TWLI  MI  I  ,2»  =0. 

I  FIS  FLAGt  !  l.eQ.0»  GCTC  122 
b»*LMU(n  =  BALMU( 

BALMC(  T1  =BALMD1  I  TfrP  IZ180. 

Xl  =  Xe+.5*aWlDTH(  I)«CGSI  EALPUm  > 

Z1  =Ze<-.5  OBWIDTHI  IPS'SiNI  EAL  PUM 
X2  =  XB-.S<'BWI0THI  i  J«‘CLS(  EALPCd)  I 
Z2  =  Ze-.5*BWlOTH(  H  «i  S  iN  (  E  AL  PC  ( I  *  1 
TksLIMl  I,  1I  =  ATN2(  Z1,XJ:I 
TWLIMd  ,2)  =ATN2(Z2,XJ4 
RWLI  PI  T  ,  1 )  =SORTi  Xl^Xi  tZl-fZ  1» 

PWLI P(  I ,2>  =  SQRTi XZ^Xi+ZZ^ZZ) 

122  CONTINUE 
IFINVEHl.NE.  0*  GCTC  124 
DO  123  1=4,5 
eFTRADM»  =  £FFRAD(I» 

Xb=ELL( I l-CGXIll 
Zb=ZS( I)-CGZ(  11 

kBC(  I>=SORT(  AB^XEi-ZecZB) 

THET  A0I  I  »  =  ATN2{  ZE,XE4 

123  CONTINUE 

1^4  IF(NCNITS.EQ.  11  GCTC  125 

ALL  TRAILER  OIST,  ANC  ANGLES  WRT  hITCF 
CGFZI2I=CGFZ2-DELTWZ 

CGXI  2»  =1  CGFZ2«CGX2-£fiLTW2«CEE2J/CGFZt2> 

CGZ(  2)=  (CGFZ2<‘CGZ2-C6LTW2*Z£E2  »  /CGfZ42  » 

CGFX  12  >  =  2. 

CGMY12)  =  2.. 

RHTCPI2»=S0HT(  CGXI  2M>2tCGZ<2»*.*2l 
THET0H(  2)  =  ATN2IC6Z12i*CGXi  2>l 
XHB=ELL{3> 

ZHB  =  -REFHT1  *-EFFRAD4  3P 

RBCi i>=SCRTI XHB*XhB*ZF8*ZHei 

THET AO  1 bl=ATN2l ZFB,  XhBI 
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R-2i35B,  VOLUME  II 

listing  of  pfqgr^m  oesTse 


RWLI  yl3,l)=RBCl3) 

TWLIf'(3»l)  =  THETA0j3l 
KWLIP(3,2»=0. 

TwLIP.(3, 21  =  0. 

IF  tSFLAGO)  .  EQ.3I  GCTC  125 
BALMLI  3*  =BALMUI3F'!‘P<U180. 

BALMC(3>=BALMD,(3)«P  1/180. 

Xl  =  XhBf.5*BWlOTH<3F*CGSI  BALMJI3 
Zi^ZFB+.SfBWlDTHl  3I  <‘SIMBA1WUI  3  n 
KWLIPI  if  i»=SQRT(  Xl^-Xl^Zl*!/!! 

TiiLlPO,  1>  =  ATN2I  Z1„X1I 
X2=XHB-.5'!'BWlCTH(il  *GGS  I B  AL  MO  I  3  )  ) 
Z2=ZHB-.5*BWI0THI3I>S1M8ALKG{  3>> 
kWLI  P(3.2»  =  SQRT(X2*>h2+Z2«‘22) 

TrLIMI  3,2»=ATN2I  Z2,  X2I 
125  CONTINUE 

DO  130  I=1,NSUSP 
EFTRADI  I  UEFFRAOni 

IF(NVEH1.EQ.0.ANC.I«KE.3F  E  FT  R  ACI 1 1^  =  .  5#l  ELLI 1 »- ELL  1 2  1 1 
IFiNVEHi  .EQ.^.ANC.NFL.EC.^.AnDAJ.NE^BI 
+  EFTRAOI  I  >  =  ELLl  1> -ELL42) 

DO  130  J=l,2 
POWEHR  ( 1  ,J)  =  1  .0 
BRAKFRII  f  J)  =  1.0 
RkU  ,J*  =  EFfkA0(J  ) 

CRRI If  J)=RT0W(  I  » 

PCW(I,J»=FMU{I* 

130  CONTINUE 

BPKFCL=y. 

!F(NVEHl.eQ.0)  B'FRFCfei=EFTR4CI  1  I-EFfRAC41  J 

DO  135  1=1,NPTSC1 

YCLCK  L»=YCLC1U  l-BFRFDL 

IFIABSI  YCLClIin  ♦ABSi^CLCl  IJ*»«EC*0.I  GOTO  133 
CAWl  ni  =  ATN2(  YCLCU  I*,XCLCli  III 
I  FI  AES  (CAWl  (  I»  )  .LE.  -01)  CAWlU)  =  e. 

GOTO  135 

133  CAR1II)=0. 

1  35  CHWl  1 1 )  =S0RTI  XCL  CII  l*#-#2+yCLClI  I)  **2) 

IFINLNITS.LE.I  >  GCTC  145 
DC  140  I=1,NPTSC2 

TflAESI YCLC2I I)»+ABSiXCLC2<I)),EQ.0.»  GOTO  138 

CAR2  (I  )  =  ATN2  (  YCLC2L M  tXCLCZU  IT 

IF«  AESI  CAk2I  IM  .LE.  .011  CAW2UI=B. 

GOTO  140 

i38  CAW241)=0. 

140  CRR2U)  =  SQRT(  XCLC2(  I.H<'«'2  ♦YCLC2I I  »*P2  ) 

C 

U  END  OF  VEHICLE  PREPRGCESSCR 

ECHO  INPUT 

145  IF  (LGUT.EO.0)  GOTO  135 

kklT  El LUN6,500  0)  T ITLE 1 ,TI TLE2. T IT LE3 , NV EH1,NFL 
5000  F0RMAT{1H1,37H  TFE  FGLLCWING  IS  A  LIST  OF  THE  INPUT* 

99 


R-2itJ38,  VOLUME  II 
LISTING  UF  PHUGRAM  0BS7ttB 


PA6E  A- 


*■  ilH  VARI/5HLES  /16F  7hE  VEHICLE  IS  ,3A5yilH  FIRST  UNIT, 

*■  ^8h  TKACKEC/WHEELEC  JNCICATOk: 

+  27H  FLEXIBLE  TRACK  lADICATCR  12/ ) 

WkITE(LUN6,15i>  CGX l^CGZ l.CGFZl .06X2, CGZ2 ,CGFZ2  , 

♦  (CGXd  »  ,CGZ(  !  )  tCGFXUI  ,CGFZUT  ,PHTCH<  H  , T HET.itlHI  II ,  I=1,NUNITSI 
151  FORMAT  (6H  OVPPF,  6f  12w3/6X,6Fi2.  J/6Xr6Fl2  .3* 

WRIT  EC  LUN6,5  0e2l  NUMTS  ,  REFHT  1  ,  HTCHFZ 
50^2  FCRMATUIH  THIS  AS  A  »ii,29H  UNIT  VEHICLE  WITH  THE  HITCH  , 

^  F6.2,24H  inches  ABOVE  THE  GROUN C/IX , 14HH  ITCH  LOAD  IS  »F10.3I 

WRITE!  LUN6*5  0k)4  I  NSO^F 

5004  F0RMATC17H  THE  VEHICLE  HAS  ,12, 21H  SUSPENSION  SUPPORTS  ,121 
WRITFC  LUN6rt>005» 

5005  FORMAT (47h  FOLLOWING  IS  A  LIST  CF  SUSPENSION  SUPPORT  DATA,/ I 
00  160  I=1,NSUSP 

WRITE(LLiN6, 50061  SFLAGC  II,  EFFRACCl  I,  EFTRAOl  D  ,ELLI  II  , 
fquUFC  I  I  ,BALMU(  H  ,eALNCC  1 1  ,BWICTHI  IljFMUIIl* 

RTOW(II,RBCMI  iTHETAWm 

WR!TE(LUN6,5  015I  4  I  f  II  ,J  I  ,  I  EC  I  ,  ,  PML  1M(  !,JI  ,TWLIM4J,JI  , 

>  RR(l,Jl,CRRCl,JlfPCWlI,JA,J=l,2l 

5015  FORMAT{3X,2I2,2X,5F10^3/3X,2I2, 2X,5F10.3l 

5006  FORMATC 13, i2F10. 3» 

lt)0  CONTINUE 

If  1  NVEHl  .NE.  0  »  GOTC  163 

WRITE(LUN6,5009)  CSFLAGCI I  ,  IP  C  I  ,  H  ,  IBC  I  ,  IHELLCll, 

«•  ZS(I  I,  EFFRADC  I  1,RBC4*I,THEIA0C  II  ,1=4,51 

5009  F0RMAT(32H  TRACKED  VEHICLE  BEING  SIMULAT  ED/21  3  13 , 5F1 0.3/ I  I 

lo3  CONTINUE 

WRITE! LU No, 5 007 1  CGZ1,DEE1 ,ZEE1 ,DELTW1 

5007  FORM ATC 37h0FOR  UNIT  H  VERT  CIST  HITCH  TO  CG  =  ,f7.3/ 

+  i3X,29HHCRiZ  DIST  HIICH  TO  PAYLGAD=  ,F7.3/ 

13X,29H  VERT  DIST  H MCH  TO  PAYLCAC=  ,F7.3/ 

13X,  10H  PAYLOAD=  ,F7^3) 

WRI TE (LUN6, 50101  RAF 

5010  FORMAT!  35H  THE  kEBOUAC  ATTEKUATIGN  FACTOR  IS  ,F5.2,/I 
WkITE!LUN6,50UI  NPT3C1 

5011  FORMAT!i0H  THERE  ARE.!3,22H  POINTS  ON  THE  VEHICLE 
1  0H  clearance  CONTOUR,/! 

00  1 65  1=1 .NPTSCl 

WR1TE!LUN6,5012I  I , XCLC 1 C 1 1 , 1 , YCLC 1 4 1 ♦, C AWl ! 1 1 ,CRW1 1 1 1 

5012  F0RMAT17H  XCLCi  !  ,  12  ,3H»  =  ,  F8 . 2  ,  2X,  6HYCLC  1!  W  1 2,3HI  =,F8.2, 

<•  ^F10.3I 

165  CONTINUE 

IF!NLNITS.EQ.1I  GOTC  175 

WRITE!  LUN6, 5013  >  CG22,CEE2  ,ZEE2  ,CELrW2 

5013  FORM  AT  11  8H0FOR  UMT  CGZ=  ,F703/ 

«•  13X,29HHGRIZ  DIST  HIICH  TG  FAYLCAC=  ,F7.3/ 

13X,29H  VERT  DIST  HITCH  TO  PAYLGAO=  ,F7.3/ 

♦  13X,10H  PAYLCA0=  ,F7Z3/1X, 2F10. 31 
WRITEILUN6, 50141  NFTSC2 

5014  FCRMAT410H  THERE  Aft£>I3,23H  POINTS  ON  THE  2ND  UNIT 

♦  18H  CLEARANCE  CONTQLR,/! 

00  1  70  I=1,NPTSC2 

WRITE!  LUN6  ,5016)  I  ,XCLC2!  ll,I,YCLC2i  1 1# C AW2H  I  , CRW 24  II 

5016  F0RMAT17H  XCL  C24  , 1 2  ,  iH  I  =  ,  F8.2 , 2X  ,6HYCLC  24 , 12 , 3HI  =, 
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K-t!058,  VOLUh^E  II 

listing  of  pfogfam  oes78e 
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*■  F8  .^FlkJ.a  > 
170  CONTINUE 


THIS 


PROGRAM  DOES  NOT 


HAVE  CLASS  INTERVAL  OBSTACLES 


READ  IN  TERRAIN  DATA 

75  CONTINUE 
NCBST=0 

READ{LUN2,40ie;»  LSIG 
kEAD(LUN2, 40201  GRALfi 
SLOPED ATANI GRADE /1 00,) 

CSLOPE=COS{S  LOPE ) 

SSLOPE=SIN(SLOPE) 

IFILCUT.GE.  1)  WRITEI(LUN6,5018)  LS IG, GRACE, SLOPE  , 
+  CSLOFE.SSLOPE 

5<ol8  FORM  AT(6H0T£RR1  ».I2,4F10.3) 

IFILSIG.EO^DGO  TO  2110 
IF(LSIG.EQ.2)G0  TO  185 
! F(LSIG.E0.3 )GC  TC  180 
WRITEILUNI ,5017) 

5017  FORMAT! 19H  TERRAIN  FILE  ERPGRT 
CALL  EXIT 

180  READ (LUN2, 4040 )  NAN G,NCHGT ,NWCT h 
4040  FORMAT  13 (8X, 12) ) 


OBSTACLE  LCOP 

135  READ  (LUN2, 4050)  O0>t  ,CBAA,OBW 

4050  FORM  ATI 3F10.2 ) 

IFIOEH.GE. '99999. 99)  CALL  EXIT 
RmC=GBAA*PI/180. 

IF(AES(SLOPE)»ABS(i8il,-CBAA)*PI/i8e..LT.PID2»  GOTO  195 
WRITE! LUNl,i 911  CBH  ,caAA,CEW,GRACE 
191  format  150H  OBSTACLE  ANGLE-GRADE  COMBINATION  EXCEEDS  VERTICAL, 
f  /4F10.3) 
goto  185 

L-^5  TFI180.-OBAA  .LT.  0.T  OeH=- ABSTGBH  ) 

IFILCUT.GE.  1)  WRITEitLUN6,4030»  CBH,CBAA,OBW 
403*;  FORMAT!  iSHlNEw  0 BST  ACL E  ,4F  1 0 .2 1 
GO  TO  210 

READ  OR  CALCULATE  OBSTACLE  PRCFILE  BREAKPOINTS 

2  00  READ1LUN2,4010I  NPTSfF 

NTOTAL  =  0 

TFlNPTSPR.eO.99t)  CALL  EXIT 

READ  (LUN2*4020I  !X FRIc  1  I »  , Y PRF<  I  ) ,  1=1,NPTSPRI 
WRITE!  LUM  .4035)  LSIG 

4035  FORMAT  (42H  WRONG  DATA  MCCE  FOR  OBSTACLE  DESCRIPTION  ,18) 

CALL  EXIT 


CALCULATE  OBSTACLE  AND  HUE  PRCFILE 


101 


PA@E  I 


l<-?058,  VCLUNE  il 
LISTING  OF  PFUGkyJM  u6S78fc 


210  CALL  OBGEUM  I BW i CT F* 6f T P AD , ELL, hA, , HC , hO% HE,hF ,HFL , 

+  HX  ,HZ,  L0UT»LUN6  ,NSUSP,NUMTS  ,NV  EFli,aArOBAM,OBH#  0BW,0  FL, 
+  OX,  uZ,  SFLAG,  SLOPE, STEiPJ 

c 

C  STARTING  PCINTS  FOR  EC.  SCLVER 
C 

XN( 1  )  =  RTGW( 1 J 
XN< 4»=0, 

Ml  =  NSUSP<-i 
DO  2  15  I=2,N1 
IM1=  I-l 

215  XNl  I  )  =  E0UILFMM1  i*.(  C iLT W1  ♦  t EL T W2 )/ FLOATi  NSUSPI 

XN<  5  »=0. 

XN  (6  )=JiTCHFZ 
C 

C  INITIALIZE  STORAGE 

C 

NW{  3  )  =0 

NW(5I=0 
DO  <ilo  1  =  1,5 
2  16  NW2i  H  =0 

CLRM  JN=  1000. 

PGGM>iX=0. 

FaG=0. 

C 

C  CALCULATE  INITIAL  POSITION 

C 

C  FIRST  SUSPENSION 
C 

C=-HE(l,i)/HFL ( 1,U 
S=HD(1,1>/HFL(1,1I 
XPW (  1,11 =HX(  I, 21 -.1 
ZPW(  1,1)=HZ( 1,2)-.1*S 
NW  (1  »  =  0 

IF(  SFlAGI  IL.EQ.l  )  GCIC  22w 
C 

C  FIRST  SUSPENSION  BOGLE  CENTER 
C 

218  XPBC (1 » =XPW( 1 , 11 
ZPBCIl >=  7P^( 1 ,1> 

GOTO  230 
C 

C  FIRST  SUSPENSION  BOGIE 
C 

22  0  XPW<  1 ,2)  =  XPW(  1 ,  1  l-BRiDTHi  U*C 

ZPnI i,2l =ZPWI 1,1 )-B^IDTHl 1  l*S 
XTEMP=XP«(1,11-XFWI1#2). 

ZTEMF=ZPWl  1,1  )-ZFW(  i^2> 

BETAU )=ATN2  <  ZTENP  .XTEPPI 
XPBCll }  =  .5  «•<  XPWI  1,  1  l*XPWU  ,2  »  ) 

ZP3C  (1  »  =  .5<5(ZPW(  1,1  T4ZPW41  ,2)  1 
C 

C  LOCATE  FIRST  UNIT  CG  FRCM  FIRST  SUSPENSION 
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C 

THtT/{l»=ATN2tHDll,lT,-HE( 1, 1) » 

IF(THErA(l».LE..01»  IHETAI U=0, 

XPCG (U=XPBC(1 I-PBCiil^COSITHETAOIlT+THETAC 1»» 

ZPCGd  I  =  ZPBCC  1»-RBC41J*SIN<THET  ABili  *THeTA{  ill 
XPbCd  I  =  XPCG:  D  +  RBCIZi^CCSlTHET/iilZHUHETAI  HI 
ZPBCi2)=ZPCG4  IHRBCUaX'SiNaFtTAeUI'+THETAUI-l 
C 

C  CHECK  IF  TRACKED 
C  ^ 

IFINVEHI  .NE.  01'  GCTC  235 

CHECK  FkONT  SPRUCKET/ICLEF  INTERFERENCE 

XPS=XPCG{1>  i-RBCI  Ai#CCSITHETA0l4)«-Th6TAI  U) 

ZPS=ZPCGn  HRBCI  THET A0< 4  I  ♦THETAM  1 1 

CALL  WHEEL3  <  E  rHA ,  HCi»i-E  ,  FF  i  FX  ,  I  H<  4, 1  Ir4*  LOUTt  LUN6, 

*  XPS» ZPS» ZPR0F(4,IFI 
IF(E  .GE. II  GOTO  2  35 

INTERFERENCE  -  BACKOFF  FIRST  UhEFL  -  ASSUME  MOUND 
S1  =  S/C 

S2=IGZ<4I-0Z{  2)  l/i4CX«4l  -OX(  211 

PI  SQ=  t  SI  <'*2+  1  .1  «■  (ZPS4FiZ  (AyZI  +  SZAlHAtlA  »2I-XPS4  i♦♦2/IS  1-S2I**  2 

RI =SCRI<  RISQI 

XPW(  l,il  =XPWI  i*i  )-RI-«C 

ZPF( 1, II =ZPW( 1 ,1 >-RI«S 

IF(LCUT.G£.iK>l  WRITE^LUN6,236l  XPS,ZPS>  E  ,  IMI  4*  1  I  f  Si,S  2» 
RlSO»Rl,XPi<(  i  ,il  1* 

236  FORM  ATI 9H  MBACKOFF,3610.34 I3,6Flfe;.3l 

I F( SFLAGIl I . EO.i I  GCIC  220 
GOTO  218 

SECOND  SUSPENSION 

235  NW(2I  =  0 

IF<SFLAGI2I  *£0.1  I  6CTO  240 

SECOND  SUSPENSION  SINGLE  WHEEL 

XPWI 2. n  =XPBC(2I 
ZPWi 2, 1 >=ZPBC42I 
GOTO  250 

SECOND  SUSPENSION  BOGIE 

2  4^)  XPW<2,i  »=XPBC(2)  ♦.54BWiCTFl2l*'CGSlTHETA(ll  I 

ZPWI  2,1I=ZPBC<2I  *.5  «8wICTH4  2I«SIN4TH£TA(  HI 
XPW(2,2l=XPBCl2l-«5*EFiLTHl2l<'CCSITHETAnil 
ZPW<  2,21  =ZP8C(  2l-.5*8WIOTHI2l*SlN4THErA<  11  1 
XTEMP=XPWI  2,ll-.XFWi2w2l 
ZTEMf=ZPW42 ,1  l-TZfW!|2#2l 
bETA12)  =  ATN2(  ZIEFPtlilEMP) 
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C 

C  LOCATE  HITCH 
C 

2  5tJ  XPH  =  XPCGi  II  i-kHTCH  1  l«C0S4T  EET0H.41I>THETA<  HI 
ZFH=ZPCGnT  +  RHTChi  i  )  «S  IM  T  hET0H  ( 1  »>ThET  AU  J  ) 

I  F(  NLNITS.  EO.  1  >  GOTO  280 

C 

C  SECOND  UNIT  -  LOCATE  WFEEL^ifiCGIE  CENTER 
C 

THETAI  21  =THETAn  \ 

RSQ=R8CI 3»  **2 

CALL  WHEEL2  1  EFFRAD  ,t»A,  PC,  EEf  PF.HX  1HI3*  1 1, 

+  3,  L0LT,LUN6,L)X,GZ,  AlEHAi  3,1 ) ,  RBC<3  F,ftSQ,  XPH, 

^  XP6C  (31  ,ZPH,ZPBC(  3n 
NV»l  3  )  =  U 

IF(SFLAG(3> .EQ.l »  GCTO  260 

C 

C  THIkD  suspension  SINGLE  ^ISEL 
C 

XPW(  3,  U  =XPBC<3» 

ZPKI  J,  1)=ZPBC.(3> 

GOTO  270 

C 

C  THIKD  SUSPENSION  BOGLE 
C 

26fc  XPK{3,  1I=XPBC(3»  ♦  .  5  «UW  iOT  H(  3  )  «COS  ( THETA  1 2 1 1 
ZPWl  3,1)  =ZPBC<  3)  **5  *e«ICTH4  31  <■$  IMTHETAi  211 
XPW  (  3,  21  =XPBC(3)  -  -5*eWiCTHl3l*CCS>{THETAT2)  T 
ZPWI  3.2) =ZPBC( 3» -.5«BWIDTH<3I*S1N(THETA( 21 1 
XTEMP=XPWI  3,1  )-XFwI  2»2) 

ZTEMF  =  ZPW4  3 ,1  »  -ZfWl  3#'2) 

8ETAUI=ATN2(  ZTEPP,  XlEMPJ 

2  70  XPCG(2)  =XPHi-RHTCH2  )«COS<  T  FET  0H(  2l+ThETA42IT 
ZPCG(2)  =  ZPH+RHTChl  2.l« SI N ( T HET 0H4  2  I  ♦THETA I  2 1 1 
2  80  DO  290  I  =1  ,NSUSP 

ALPHAIl,  i)=THETA(l) 

IFi  SFLAGI I) . EQ.0  I  GCTO  290 
ALPHA!  I,2»=THETA(1  ♦ 

290  CONTINUE 
ILOC  =0 

IF  (LCUT  .GE.8)  WR  IT  E  i  LU  N  6 , 2  91  )  X  FH,Z  PH.,  I  XPCGI  I )  , 

♦  ZPCG!  I  )  ,  THETA!  D  ,I  =  1,AUMTS» 

291  PORMATI7H  MI N I T1 ,B F la. 3 ) 

IF!  LCUT. GE. 6  I  WR  I TE  <LUN6 , 2  96*  <  XPbC4  I  T.Z  PBC!  I»  ,N«UI  , 

♦  ! aPW( I, J),ZPW( 1, j), ALPHA!  I, J) ,J =1,21,  1  =  1 ,NSUSPI 

29  6  FORMAT  (7H  MINIT2,2f  1!*  .  3 ,1  3 ,6F  1 0  .3/2  4,7X*  2FiL).3, 1 .3,  6F1  0.3/ »> 

C 

C  VEHICLE  MOVEMENT  LOOP 
C 

C  LALCULaTE  CLEARANCE 
C 

30i<3  ^LOC  =  ILOC^l 

CALL  CLEAR  (  C Awl  , C A)i 2, C RWl  , C RH2  ,  ICX, LOUT , 

^  LUN6  ,CLkNC,  NPTSC  1,NFISC2,NCMTS  ,CX,Q/, THETA, XPH,Z PHI 
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IFICLRNC.GE-CLRMIM  GCTC  312 

IDXCLRslLX 

LOCATC=lLOC 

CLRMlN=CLkNC 

310  IFU  L0UT.F0.4  ».OR.(  iajT.GE.8ii  VtR  IT  E4  LUN6, 31 1 1  IL0C,CLRNC, 
i-  CLRMIN  .ICX.ICXCLR 

311  (-ORM^TIfeH  MAINC,  15, 2F10.3,  2110  J 

CALCULATE  FORCES  ONCER  WhEELS 

CGXl  II  =XPCG(  1)-XFH 
CGZI  11  =ZPCG(1  )-ZfH 
IFINUNITS.EQ.H  GCTC  -32fe 
CGXI 21 =XPCG(2 )-XFh 
CGZI  2>=ZPCGl  21-Z  FH 

20  IFILCUT.GE. 10i  WRIT t4LUN6t326i  CGXI 1 F,CGZ ( II , 

«•  CGX(il,CGZI2l 
126  FGKM/T  (6H  MAiNl,4F10-3) 

IF(  SFLAGII  I  .EO.i  I  8  ETAPll  I  =BETA{  ll>THETAI  li 
IFISFLAGI 21 .EQ.l  I  BETAP (21 'BETA! 2i*TFETAl 1 1 

IF(NSUSP^G£.3.ANC.SftAGI31-.EQ.l  »  BET  API  3  4  =8ETAl  31  i-THETAlZI 
DO  340  1=1,5 
X<I>  =XPBC4 II-XPH 
ZI I )=ZPBCI l)-ZPH 

IF!  LCOT.GE.10i  WRIT  EiLUN6 , 336 1  XIII, ZMI 
136  FORM^TIbH  W  A I  N2 , 4  FI  0  <3  I 

340  CONTINUE 

CALL  FORCES  ( XN, RAX C #NT CT AL ,SS C , XPH, ZPHI 
CAPTLRt  OUTPUT 
FSUM=0. 

OG  350  I=1,NSUSP 
DO  3  55  J=i,2 

FSUM=FSUP*FN( I , J )♦CTCI I, J I 
IF(LCUT,GF,8I  WRITEI  iUN6,3  51  I  ILGC^FSUM, 

••  FNII  ,  Jl  ,  CTF(  I  ,JI 
355  CONTINUE 

350  CONTINUE 

351  FURMAT(6H  MA!N3,13,7F12-31- 
IF (FSUM.LE.FUOMAXI  GCTC  360 
locatf=t  log 

FUOMAX=FSUM 

360  1F(  FSUM.LT.0.  I  FSUR=RiAF*FSUM 

FOO=  FOO+FSUM 

IFISSO.GT. 100.1  GCTC  981 
ADVANCE  VEFICLE 

CALL  MOVEB  (  CSLC  FE,  N  fiCL  ,NV  EH  1,R  EC, 

«■  REFHTi,KHTCH,RWLIM,S3LaPE,SSQM,  theta, THBTA0,THET0H,TWLIM, 

+  XPCG,XPH,2PCG,ZPFI 

I FC SSQM.GT.100. I  GOTO  983 

I  FILCUT.GE.SI  WRITE  IfcliNfc, 3661  XPh,ZPH,lXPCG( H  ,ZPCG(  H  , 
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♦  THET/i(i)  ,l=l,NUMTS  J 
366  FGRM/1T<6H  MA  IN4 , 8f  1  0  .3  » 
iFdCUT.LT.d  I  GGTC 
DO  5  80  I  =1,0 SUSP 

V^kITE(LUN6,3  71  »  1,  S  FtAGI  1  I  > ,  XPBC  CH  ,2PBCm  ,  BET  Ai  I», 

+  1  XPW<  I  ,  Ji  ,ZPv<<  I,  J)  ,  ALPhAT  It  J)*  IKl,  Ji,  J=l,  2» 

371  FORMATlbH  MA  !  N5 , 3  !3  ,1F1  P  .  3 , 2  (  3  FI  0.3  ,  13  H 

380  CONTINUE 

39.0  IFjIXPv^I  1,1).LE.HXI1.,1:£)  1  GCTO  300 

L 

C  tNC  OF  VEHICLc  MUVEPENT  LCCP 
C 

FCG=  FOG/FLGAT (  ILCC» 

IFl  LCUT.GT.0J  WR1TE4EUN6,811  1  L  CCATC,  CL  RA1IN, 

+  T DXCIR, LCCATF, FCCRAX#FGC 
811  F0KMAT16H  HA IN7,  IS , Fi«.3^ 1 10/6X ,15 ,2Fi0.3l 

C 

C  WRITE  AMC  74  aREAL  MOCULE  INPUT  FILE 

C 

iF(L SIG.EQ.ll  GOTO  S89 
IFilLSIG.EU.2)GG  TC  S^l 
IF <Kl.EU.il  GOTO  995 
WRITE!  LUM  ,90761  NCFGT  ,  N  ANG,  NW  CT  H 
9076  FCKHAT I5HN0HGT,/ ,5X,i2,/„4HNANG,/,5X,Ii, /# 5HNWDT H, /,5X , 12 » 
991  Kl=l 

WRITEILUNI ,90711 

9  071  FORM  ATI  /  1  X  ,6  HC LRM N  ,%X  ,  GHFCOM  AX  ,4X  ,  3HF00 , 7X  ,  6HH0VALS  , 

*■  4X,ShAVALS,5X,5HwVAliJ 
WRIT  El  LUM  ,90721 

9072  FORM  ATI  1  X,  6H I NCHES  ,  4 X,6  HPGUNLS , 4X* 6HP0UN DS,4X, 6  WINCHES  , 
4X,7FRADIANS,  3X,  EhlNCWESl 
9  95  CONTINUE 

IFILSIG. EU.il  GO  TO  984 
OBH= A0S( G8H) 

9B1  WRITEILUNl ,9073 J  CL F RIN , FOCH AX , FGO, 0 EH, R A GrOBW 
907  3  FORMAT!  iX,F6./,iX,F9wlf  IX  ,  F9 . 1 , 4X  ,  F6  ^2  ,4X  ,  F6  .2, 3X,F  7.  2 1 
IFISSQ.GT.iUU.  )  WRITE!  LUM  ,982  1 

96^  FORMAT!  lhf,60X  ,3Sh  EGSOL  CANNOT  SOLVE  FORCE  £  MOMENT  EQS.l 
GO  TC  983 

989  IF !K1.E0.1)G0  TO  984 

Ki=l 

WRIT  E!LUM, 9077) 

9  0  77  FORM  ATI  /  iX,6FCLRMN*4X,6HFCCMAX,4X,3WF00T 
WK1TE!LUN1  ,90781 

9078  FORMAT!  1 X ,6 H I NCH ES , 4 X,6 WPGUNDS , 4X, 6HFGUN DS 1 

984  WRITF(LUN1 ,90791  CL F Rl N , FGGPAX , FCC 

9  079  FORM  AT! iX,F6.2,  1 X, F S W 1 , IX , F9 .1  I 
9b3  NOBST=NUBST+ 1 

WRI  T  El  LUN5  ,985  1  NCBST 

985  FORM  AT!  1X,19H  ENC  Cf  GBSTACLE  h  ,I3T 
IFILSlG.EQ.ll  GGTC  2ii0 

!F!  LSIG.E0.2I  CALL  EXIT 
IF!LSIG.E0..31GC  TC  185 

C 
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C  END  CF  CbSlACLE  LOOP 

C 

END 

C 

c 

SUBKCUT  INE  OEGEOf'  (  BW4DTH,  EFFRAD  ,ELL  f  HAt  HB#HC»HD,HE  t HF  »HFL» 
♦  HX,HZ,LOUT,LUN6,NSUSp4NU.MTS,NVEEl,GAfOeAA,aeH,QaW,OFL, 

^  OX, OZ,SFL/iG, SLOPE, STEPt 
C 

INTEGER  SFLAG 

DIMENSION  8WT 0THC3I  , EFFRADI 51 , ELL4 5k, HAl 5» 91  ,  HB<5,  91  , 
f  HC(  5,9)  ,HD<  5,9>,hE(  5#9)  ,HF(5,9>  ,HFlil5#9»,HKl5#10»#HZr5,  10), 
^  OAI  9  )  ,OFH9)  ,CXi(  1 0  k ,S FL  AGU  ) 

C 

c  OBSTACLE  AND  HUB  BREAK  POINTS  BEFORE  MAIN  SLOPE 

C 

OANG=(  laa.^OBAA)  «.i.  1415926  5/160. 

CANo2=CQS(QANG/2 .) 

SANG2  =  SINiOANG/2.)- 

TANG2=SANG2/CANG2 

CANG=COSIOANG) 

SANG=S INIOANG) 

TANG=SANG/CANG 
WA=OEW+2  .«08H/TANG 
KUNL=ELL41»-flLI NSUSB* 

!  FI  SFL  AGi  1  )  .  EO.l  )  RU*iL=RUNL+BWI  CThI  1 1/2. 
IF(SFLAG(NSUSP).£Q-11  RUNL  =  RUNL'*BWI0THI  NSUSPl/2  • 
IF(LGUT.GE.10)  WRITEl<LUN6,  121»  CAN€,OBH,OBk(, 

SANG  , GANG, TANG, WAfSLCfE,  RUNL 
12i  FORM  ATI  5  H  OBG1,9F10.3I 

IF!  OANG.LT.0.  )  GOTO  .1300 
C 

C  MOUND 

C  SET  CBSTACLE  POINTS 

C 

OX  (1  )=-.RUNL-EFFRAC(  U*TANG2-1. 

I  FI  N  VEHl  .EO.0  )  OXCi  )=?OXU)  ♦ELL(  1)-ELLI4I 
OZI  1  )  =  0. 

0X12  )=0. 

□  Z.(2  )=0. 

OX  13  )  =  0. 

OZI  3  )  =  0, 

OX (4  )  =  UBH/TANG 
02<4  l  =  ObH 
0XI5)=0X(4) 

OZI  5  )  =  OBH 
0X16  I  =  WA-GXI 4) 

0ZI6  )=0BH 
0X17  )=UX  (6  ) 

0ZI7 )=OBH 
□X la )=WA 
0ZI8  »=0. 

0X19  )  =  WA 
OZI9)=0. 
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UXl  1  I?1  =W  AfK!jNL  +  £Ff  H/CINSUSPI#TANG2 
iFlNVEHi.EO.0)  GX(1^I=CX( 1 fc )  +  EL  Li NSUSPi - ELL< 5 ) 
OZ  II  0)  =0  . 

C 

C  Str  FOB  PkUF  ILE  PGI  MS 

L 

no  1200  K=l,5 

IFIK  .GT.NSUSP.ANC-NVEB^I.NE.0)  GOTO  1200 
IF(K.EQ.:>.  ANC.NlJ.MTS.Et.l)  GCTC  1200 
kK  =  EFFRAClK> 

HXl  K  .1  )  =  CXI  1  ) 

HZl  K  ,1)  =  RK 
HX(K  ,51  =CX(  5  > 

HZ:IK,5  >  =  CBH+RK 
HX(K,6»=0X(6> 

HZI  K,6)  =C8H<-RK 
HXIK  ,i0J =GXI 10) 

HZ(  K  ,10)  =RK 
C 

HZI  K  ,4»  =  GZI  4  )  ♦■RK*CANC 
lFiHZ(K,4)  ,LT  .RK  )  GCTC  1100 
HX  (K,4)=0X<4)  -kK«SAN€ 

HXI K,3I=GX(3)-RK*TAF62 

HZIK,3)=RK 

HX,(  K  ,2  )  =  HX(  K,3  ) 

HZ  (K,,2)=RK 

HX(K,7)  =  CX(7)<-RK*'SANG 
HZIK  ,71  =  CZ(  7)  fRK'i'CANe 
HXIK  ,81=0X18)  i-HK0TAFG2 
HZIK  ,8)=RK 
HXi K  ,9) =HX( K,8 ) 

HZIK  ,9)  =  RK 
GOTO  1200 

1100  HXIK,4)  =  CXI4)-SQRT(  2  i*RK*CEH-G  eH«-0  EH  ) 

HZ<K  ,4)  =RK 
HX<K,3  )  =  HXI  K,4  ) 

HZ (K,3)=HZIK,4) 

HXl  K  ,2)  =HXI  K,3  ) 

HZIK,2)=HZIK,3) 

HXiK  ,71=0X16)  ♦■SCRTI2  J*PKOCEH-0EF#0BH) 

HZI K,7)=RK 
HXIK  ,8 )=HX IK, 7) 

HZIK,8 )=RK 
HXIK,9)=HX(K,&) 

HZI  K,9)  =RK 

1200  continue 

GOTO  1800 
C 

L  DITCH 

G  SET  CBSTACLE  PGIMS 

C 

1300  0X1  1  )  =-RUNL-l  . 

UZII)  =  0, 

0X12 )=0. 
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CASE 
C 


1400 

C 


az(2  )  =  k). 

0  X(3  »=0. 

OZ  (3  »  =  G. 

(JX(4  »=OBHZTANG 
0ZI4  »  =  GBH 
0X13  )  =  t)X(4) 

OZ  (5  »  =  OBH 

0X16  >  =  WA-OBH/TANG 

0Z( 6  )  =  OBH 

nXi  7  >=0X{6  ) 

UZ  (7  >=OBH 
0X(  8 

GZ(6  >  =  B. 

UX(9  »=WA 

□  Z  (9  )  =  0. 

□  X(  10)  =WA*RUNL<-1  . 

GZU  £)  =0  . 

SET  FU8  PROFILE 

DO  1730  K=l,5 

IFIK  .GT.NSUSP.ANC-iNVEttl -NE.BI  GCTO  1700 
IFJK,E0.3.  AND.NUMTS.EC.l)  GOTO  1700 
RK=EFFRADXK) 

HX,(K  ,1  »  =CXI  1  » 

HZ1K,1  >-RK 
HX(  K,2)  =0. 

HZ(K,2)  =  I<K 
HX(K  ,9)=WA 
HZIK,9  l  =  RK 
HX4K,10)=OX(1J) 

H2(K,13I  =RK 
HX(K,i)=CX(  3)-RK«SANG 
HX(K,d)=0Xl8)  t-RKt-SANQ 
IFIHXI  K,3).LT.HX{  K,8II  GOT  C  1400 

1  -  RHEEL  TOUCHES  GESTACLE  PCINTS  3  AND  8 

HX(K  ,3)=,5»(  0X4  3  l+CXiSn 
HX(K  ♦4)>  =  HX4K,3» 
hX4K,5l  =  HX(  K,3) 

HX4K,6)=HX(K,3) 
hX<  K  ,7  )  =HX4  K,3  » 

HX(K  ♦8»=HX(K,3) 

HZ(K,3I  =  SCRT{kK<-RK-4HX(K,  3)-HX(  K,2»l 
HZ( K,4)  =  HZ{  K,  3» 

HZtK,5»=HZ(K,3) 

HZ<K,6»=HZ(  K,3) 

HZ4K,7I=HZ(K,3» 

HZ(K,8)=HZ(K,3) 

GOTO  1720 

HZ4  K,3*=0Zi3)  ♦■RK^CaAG 
1F(H2{K,3»  wGT.CBF*-BK4  GCTO  1500 

109 


K-2iJb8,  VCLUNE  II 
LISTING  UF  PFOGR/iM  ueSTSe 


PAGE  A- 1 


C  CmSE  2  -  WHEEL  TOUCHES  PCINT  3  ARC  BOTTOM 
C 

HX(K,3)  =  HX(K,21  ♦•SQRT4-2«<'RKOOBH-Oeh*OBHJ 
HZK  K  ,3)  =HK«-OEH 
HX(K  .^»  =  HX(K, 

HZ(K,4)  =  HZi  K,3)' 

HX(K  ,5)  =  HX(K,  i) 

HZ<K,5»=HZ(K,3) 

hX(K,8l=HX(K,9<)-SCRTS-2.^RK<‘CBH-CBH*'CBHl 
hZI  K  ,81  =HZl(  K,  3> 

HXI  K  ,7  »  =  HX.'  K,tt  ) 

HZ  IK  f7J  =HZi K,b) 

HX(K,6 »=HX1 K,8 > 

HZ  {K,6)=HZ(K,8i 
GOTO  17B0 

IbWt)  HZ  IK  ,8  J=HZ{K,3F 

HXIK,4  »  =  CX(  4)-RK«■TA^Gl^: 

HX(K,7)  =  OX(7>  *RK  nARGi 
I  F4H  XI  K,4»  .  LT  .HXiK,  7A»  GGTC  16012 
C 

C  CASE  3  -  wheel  touches  BOTH  SLOPES  BEFCRE  BOTTOM 
C 

HXIK  »4l=I0XI 51 fCXi 6  I T/2. 

HXIK  ,5  >  =  HX£K,4)' 

HXIK  ,6»-  =  HX(K  ,41- 
HXI  K  ,7  )  =  HX(  K,4  » 

HZIK  ,4J=  .SolHZIK.BKfBZiKtB  )HHX<K»8T-HX<K»3I  l^TANG) 

HZ(K,5 »=HZI K,4) 

HZ  IK  tb  »  =  HZ  (K,4) 

HZI  K  ,71  =H2(  K,4) 

GOTO  1700 
C 

C  CASE  4  -  WHEEL  TOUCHES  SLCEES  AND  BOTTOM 
C 

1600  HXIK  ,5*=HX(K, 4» 
hXlK,6  l  =  HX(  K,7  F 
HZ  (K  ,4I  =F(K  +  OBH 
HZIK  ,5  I  =HZ1  K  ,4) 

HZ  IK ,61 =HZ (K,4  » 

HZIK  ,7l=HZIK,4> 

1700  CONTINUE 

1800  IFILCUT.GE.101  W  RI  T  E*LUN6 , 1900  1  I  OXl  I I  =  li,l  0J  ,  lOZI  1 1 , 1  =1  ,l  fl  »  , 
♦  UHXIKfl  »,I,=  1,10|.,(H2IK,I  ),I=1  ,i0J#K=U5l 
1900  FORMAT(/8I1X,10F10»3VI 1 

C 

C  TRANSFORM  PROFILES  FGR  SLOPE 

C 

DO  2  00  0  T  =  1,10 
kP=SCRT  IOXI  I)  *<■2  *CZMI**21 
PHI  =  /ITN2  4aZI  I  )  ,0X1  I  U 
OX  1 1  1=KP<‘C0SI  PHI^SLCfiEl 
UZ4  1 1  =RP  OS  INI  PHI  ♦SLC«E» 

DO  200it  K=l,5 

IFIK  .GT.NSUSP.ANC.NV8H.NE.01  GCTO  2000 
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IF(K,EG.3.AND.NUMTSrfECil»  GGTC  2000 
kP  =  SCRT(  hXlK,  I»«‘«'2*mK,I»-«<‘2l 
PHl=ATN2iHZlK,  I»  ,hX4  8»Ili 
If4ABS(PHI>  .Le^,ei>  Rfcl=0« 

HXIK  ,I  )  =  RP<‘CCSi  Phi  <-SLCFE» 

HZlK.n=RP<-SINlPHl»StCPE» 

20U0  CONTINUE 

IFILCUT.GE.9)  WR  ITE4  tUN6»  1  900  J  li  CXI  J  J.,l=  1 , 10A  »  i  OZU  »  »  i=  I,  10  L, 
«■  U  HXIK.  I »  .1  =  1*10  )  #  4  Fi4K  ,1 »  .  J=1  ,10  »  *K=1, 5 1 
DO  2010  1=1,9 

2010  OFLi  il=SCRT(  (UX(  i>l)-«0XU»  » (CZH  *1I-0Z,1I 
DO  2  150  K=l,5 

IF (K .GT.NSUSP.ANC.NVEH1«NE.0»  GOTO  2150 
TFIK  .E0.3.AND.NUNITS,EG,  IT  GCTC  2150 
RK=EFFRADtK» 

!  FI  OANG.LT.0. 1  GCTC  2100 
MOUNC 

DO  -i060  1  =  1,9 

IF  I  <  I  .EQ  .4»  .OR.t  I.E  C,6>  »  GOTO  2  040 
2030  HFL<K,n=SORTUHXlK,iU»-HXlK,I  T)*.*2  »■ 

♦  (HZI  K,l+l>-HZlK,ll-)*%2  > 

GOTO  2060 

ELEMENT  OF  ARC 

2  04  0  IFII  FX(  K,IHI.EC.HX4X,I  II.AhC.IFZlK,I*ll.E0. 

♦  HZIK.I) »  >  GOTO  2030 

SPROC=(HX(K.i  ♦•D-CX  (  4.*1)  I**  (hX  IK*  I»-0X  M»  1* 

«■  (HZIK,  I+l>-OZ(  I*1MHHZ(K,I»-0ZIIM 
ANGLE=  ACOS(SPROC/(RK^RK» » 

HFH  K,  I  I  =RK*ANGLE 
2060  CONTINUE 
GOTO  2150 

DITCF 

2100  CONTINUE 

DU  2l4k:<  1=1,9 

IF(  I  I.EO  .2»  .0R.U.EC48>  »  GOTO  2130 
2110  HFL(  K,I  )  =SQRTC  IHXI  K  ,  I  l-HXl  K,  I  1»*‘«'2  *IHZ4K,I  i-U  -HZIK  ,I»  »  **2* 

GOTO  21a0 

ELEMENT  GF  ARC 

2  130  IFI  (  FX(K,I.«-1  I-EG.HXIK*!  JJ«AND-*  FZI  Kr  1*1  >  -  EQ. 

+  HZIK, HIT  GOTO  2110 

SPROC=(HX{K,  !♦!  >-CX4  1*1 11  *  I  HXI  K ,  H -0X4  l»  h* 

♦  (HZIK,  I*11-0Z  (I  *  IT)  *iFZ  IK,  11 -OZ  (III 
ANGL  E=ACOS  ( S  PRCD/I RKSRKTI 

HFL(  K,I1  =RK<«ANGLE 

IFILCUT.GE.10)  WRITE4LUN6, 21451  K,  I ,  HXIK  ,  1 1  ,  HX I K  ,  I  *•11  , 

♦  0X1  I ),0X( 1*1 >,HZI K,1I*HZI K,I*1 1 ,021 i A*OZ I  1*1  I ,RK,SPROO 
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2i4k{  CuNTINUF 
^15iJ  CONTINUE 

2145  FORM /!T<  5H  K,  I  ,2X,2I3,6FHX  ,  2  (2X  ,  F12 ,31  ,2X  ,6H  OX  , 

+  21  2X,F12  ,/ ,6H  HZ  ,  2  (  2  X  ,  FI  2  .3  )  ,6H  OZ  ,2I2X,F12,3» 

«■  IJH  RK.SPROD  ,21  2X,  fi2.3»  T 
C 

C  DEflMTICN  OF  OBSTACLE  ELEMENTS 

C  tJA  -  ANGLE  BETWEEN  ELEMENT  AND  HORIZONTAL 

C 

OA(  1  )=SLOPE 
OAI  2  >=i3. 

QA(  3  )=SLCPEfGANG 
0^1  4  I  —L  » 

OAI 5  )=SLOPE 
0AI6 )=0, 

0A{7  »=SLGPE-OANG 
0«(  8  »-0, 

0A*9)=SL0PE 

C 

C  DEFINITION  UF  HUE  ELEMENTS  BY  QUADRATIC 

C 

DU  2300  K=l,5 

IFIK .GT.NSUSP.ANC.NVfiHl .NE-0J  GCTO  2300 
IF(K.E0.3.AND,NUMTS,EC.1I  GOTO  2300 
KK=EFfRAC(K) 

DO  2280  1=1,9 

IFIHFLIK,  II  .EQ,.^.I  GOTO  2220 
IFIOFLII  »,EO.0.)  GOTG  2.250 
t 

C  ELEMENT  IS  LINE  SEGMENT 

C 

HA(K,I.)  =  2. 

HBI  K  ,l  I  =0, 

HC(  K  ,I  1  =  0. 

HOIK  ,n=HZ<K,  I  ♦■I  I  -  bZlK<,II 
HE(K,!I=  -  IHX(K,Ik1*  -  HX(K,II> 

HF(K,I)=  -  <HD(K,II  *  HXtK,II  +  HElK,II  *  HZiK.HI 

GOTO  2280 

ELEMENT  IS  POINT 

222U  HA( K  ,11  =  0. 

hBIK,ll=0. 

HC(K,I )=0. 

HDIK.I 1=0. 

HE(  K,I  1  =  0. 

HF (K  ,I 1  =  0. 

GOTO  2280 

ELEMENT  IS  ARC 

2  250  HA(K,II  =  1. 

HBI  K  ,I )  =0, 

HCI K,I »=1 . 


PAGE  A 


112 


o  o  o  r  n  o  o 


R-2i£558  ,  VOLUME  11 
LISTING  OF  PPOGR/JM  GBSTSE 


PAGE  A-2  0 


HD1K,I»=  -  2.*  OXllI 
HEIK.I  1=  -  2.»  GZl  n 

HF{K.n=OXlIl  <■  CX(U  *  CZ(I)  «•  OZZIF  RK  «■  RK 
2282  CONTINUE 
2300  CONTINUE 

IF(LCUT.Ge.9l  WRITEItUN6*2500l'  TOFLl  IK,  i  =  Lt9l  ,4  OA4  II  ,I  =  1,9»  t 
*  1  (HFL(K, n ♦ 1  =  1 ,9) ,(KA(K, 11  ,1=1, 11,1  =  1,91, 

f  (HC4K,n  ,I  =  l,9l,4HD4«,II,I  =  l,9l,4HE4K,II,I-l,9l  , 

<HF(  K,  II  ♦l.=  i,9  1,K=l,S1 
2S00  FURM4T{9F10.3» 

CALCULATION  OF  STEP  SIZE 

STEP=100C. 

DO  2A0L  K=1,NSUSF 
DO  1  =  1,9 

IF(HFL(K,H.EC.0.)  GCTC  2400 
IF( SIEP.LE.HFLIK tlTI  GOTO  2400 
STEP=HFL( K, I » 

2400  CONTINUE 

STEP=AMAX1  (  .49*STEP,i..  I 
IF (LGUT.GE.il  WR  ITE  ltyN6>25501  STEP 
2550  F0RMAT(12H  STEP  SIZEA  ,F10.3/T 
RETURN 
END 


SUBROUTINE  CLEAR  ( CARl , C AW 2,CRW  1  ,CRW 2 , lOX , 

♦  LOUT  ,LUNb,RINCLR,NP1SCl,NPTSC2,NUNITS,OX,OZ,THET  A, 

*•  XH,ZF) 

DIMENSION  CAWII  1  51  ,CAW24  15  1,  CLOT  20  1 ,  CLVl  1 20 li,CLV2|  20  I, 
»•  CRWl  (151  ,CRW2li51,,CX*i0),GZll0l  ,THETA42», 

♦  KPVl(20l,XPV2l20l,ZFV!lt20»  ,ZPV2I  200 
REAL  MINCLK 

LOCATE  VEHICLE  POINTS 

VPAl =THETA(  1  I 
VPA2  =THeTAi2  I 
DO  110  I=1,NPTSC1 

XPVl  U)=XHfCRWl4  IH-CliSlVPAlfrCAWli  IKK 
ZPVi  I  I»  =  ZH+CRWl(  11  *5 INI  VPAl  *CAW1(T  I  Ij 

110  CONTINUE 

IF{LCUT.GE.10)WRITE4tUN6,llll  1  XPV14  I  U  I  =  1,NPTSC1 1 
IF4  LCUT.GE.i  0»WkITE4LUN6,llll  IZPVIUK,  I=1,NPTSC1I 

111  FURM/STI7H  CLEAR0,13fi0.3,l 

IF(NUN1TS.LE .IF  GOTO  130 
DO  120  I  =  1,NPTSC2 

XPV2  (I  »  =  XH*-CRW2(  II  ^CCSI VPA2  +  CAW2  <  I  1 1 
ZPV2  11  l  =  ZHfCRW2  4  II  *  S  INI  VF A  2  *0 AW 2M  l-l 
120  CONTINUE 

I  F(LCUT,GE.10»WRITE4LUN6,lli)  4  XPV2I  IK,  1=1  ,NPTSC2I 
1F( LCUT.GE. 10IWK ITEI fcUN6,lil I  ( ZPV2( I I, 1=1 ,NPTSC2 I 
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C  calculate  clearance  4£CVE  obstacle  points 

c 

1J0  DC  Eijj  10  =  1,10 
ULO(  I0>=  1000. 

K=ax (io> 
z=Gzno) 
c 

C  test  if  vehicle  is  abcve  obstacle  point 

c 

IFIXFVKII.LT.XI  GOTG  200 
1F(XF.LE.X»  goto  180 
IF(  NLNITS.LE.l  >  GOT  C  200 
IF(XfV2(NPTSC2) -GE.XI  GCTC  200 
C 

c  Trailer  above  point 

c 

IF1XPV2{  II.GE.X)  6CTG  150 

VPZ=  ZPV2  I  II +  (ZH-ZPV  2*1  F»*'<X-XPV2(  1  M/4  XH-XPV  24  IM 
CLO(  1Q)=VPZ-Z 

IFILCUT  .GE.l  is)  WRITE4LUN6,  lAll  10  ,  X.,  Z  ,VPZ  ,  CL04  10 1- 
I*,!  FORMAT!  7H  CLEARl  ,  13  r'^Fl  0  .3  I 
GOTO  200 

150  DO  170  IV=2,NPTSC2 

IF<XPV2(  IV) .GE.XI  GCTG  170 

VPZ=  ZPVt  (  IV  » (  ZPV2(  ‘IV-1  )-ZFV2(  IVM •■I  X-XPV24  IVM/ 

^  {XPV2(lV-i>-XPV2{iVM 
CLQI  iai  =  VPZ-Z 

IFdCUT.GE.  10)  WRITE  ItON6,lfcll  IG^XtZ.,  VPZ  ,CLOUOI 
161  F0RMAT(7h  CLLAR2,I3*X»Fi0.3) 

GOTO  200 
170  CONTINUE 

WRITE!  LUM,  1  76)  IG,*X,Z 
176  F0RMAT(6H  OERR 1 ,  13 , 2Fi  0 . 3 ) 

CALL  EXIT 
C 

C  VEHICLE  ABOVE  POINT 

C 

100  DC  1  90  I  V=l,NPTSCl 

IF! XPVl (  IV) .GF, X  )  GCTG  190 

VPZ  =  ZPV1  !  IV)  ‘•(ZPVl!.IV-ll-ZPVl(iVl)<-!X-XPVl!IV)  )/ 

♦  i  XPVK  IV-1)-XPV1(!V  )♦ 

CLO(  IOl=VPZ-Z 

TFl  LC(JT  .GE.l  0) 

♦  WRiTEILUN6rl86>  IG  *  >  )Z  #  I V  ,  VPZ  ,  ClCl  iC  ) 

1 8o  F0RMAT(7h  CL E AR 3 , 1  3 , 2F 10 . 3 , 13*2 FI  0 13 ) 

GOTO  200 
190  CONTINUE 

VPZ=  ZH<-(ZPVi  (  NPT  SCI  .)  -ZH)*!  X-XF )  /(  XPV 14  NPTSC 1  )-XHI 
CLO!  10)  =  VPZ-Z 

IF!  LCUT .  GE.l  0  »  WR  IT  E4iiUN6, 196)  IC,  X,  Z  ,VPZ  ,CL04  10) 
196  FCRMATI3H  04  ,  I  3  ,  .AFl  2  .,3  ) 

200  CONTINUE 

C 

C  CALCULATE  CLEARANCE  BELOW  VEHICLE  POINTS 
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DO  24iy  TV  =  lfNPTSCl 
CLVIU  V>  =  150ld. 

X=XP\<1(IVT 
Z  =  ZPVH  IV) 

IFi  X  .GE.UXli  )  »  GCTG  :220 

aPZ=CZ  11  )«-il  UZ(  2  )  -CZ  (  14  *  *‘i  X  -GXI  1  )  I/IOXI  2  1-0X1  1)  » 

CLVl  (  I  V»  =Z-OPZ 

IF(LCUT.GE.10)WRITE<I  fcUN6.216J  I  V.  X.2  ,OPZ  t  CtVlI  IV» 

216  F0RMATI3H  V 1 1 1 3 , 4f 1  £  1 

GOTO  240 

220  DC  230  10=2,10 

IF(  X.GE.GXI  I0»  )  GOTC  230 

0PZ=LZ  (iO-l»  *-(GZ  (10»*CZ  (lO-lM*  I X-OX  MO-1  »l /iOXT10l-C3X  UO-l  U 

CLVl { IV )=Z-0PZ 

IF(LCUT.G£.10> 

♦  WRITE!  LUN6, 226)  I V  ,  >W ,  10*  CPZ,  C  LV  U  1V» 

226  F0RMAT(3H  V2,I3, 2Fie*3, 13, 2Fia.3) 

GOTO  240 
230  CONTINUE 

LiPZ=GZ(9  )*{  02(10  )-(j249I-»*1  X-GXt  914710X1  104-OXI  9) ) 

CLVl  (IV)  =Z-CPZ 

I  FI  LOUT-GE.10)  WRITE4tiL)N6,2  36)  IV#X,Z  ,QPZ  , CLV  1(  I V ) 

2  36  F0RH/iT(3H  V3 ,  I  3 , 4F  1 E  .3  ) 

240  CONTINUE 

C 

C  CALCLLAT6  CLEARANCE  .BELChi  FITCH 

C 

CLH=2000, 

IFIXF.GE.OX!  1  ) 4  GOTC  260 

0P2=GZM  )*-!OZi2»-CZ4l4 >*IXH-OX(  144740X424-0X4  14  4 
CLF=ZH-QPZ 

IFILCUT.GE«104WRlTEItUN6,256)  XF,ZH,OPZ  ,CLH 
266  F0RMATI3H  Hl,4F10.3» 

GOTO  280 

200  DO  270  10=2,  10 

IF4XF.GE .CX4 IC4 )  GOTO  270 

CP2=CZ<  IG-IM-IOZMO  »  -<CZ4  10- 1 )  )  *  IXH-GXi('IO-’i  J  »740Xi  10 ) -0X1 10- 44  ) 
CLH=ZH-0P2 

IFILCUT.  GE.  i04WR  IT EMsUN6 , 2 66 1  XH,ZF,  IO,DPZ,CLH 
2c6  FQRMATISF  H2  ,  2F 1  0.  3 , 1*3, 2f  1  0 .34 
GOTO  280 
270  CONTINUE 

0PZ=CZI9  )  +  iOZ(10  )-CZ49)  4*4  XH-CX  49  4  4/ 4  0X4  104-0X1  94  I 
CLH=ZH-OPZ 

IFlLCUT.GE.10>WRITEiLUN6,,2764  XF,£H,CPZ  ,CLH 
27b  F0RMAT(3H  H3,4F10.3J 

C 

L  CALCULATE  CLEARANCE  6ELC4<  TRAILER  POiNTS 

C 

280  IFINUNITS.LE.  1)  GOT  C  325 

DO  320  IV=1,NPTSC2 
CLV2UV)  =  2500. 

X=XPV2U  V4- 
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Z=ZPV2  (I  VI 

IF(  X.GE.CXI  1  >  »  GCTC 

aPZ=CZ  (i  )  KUZ  (21  -CZ  (IIJ^IX-OXI  1  U/<ax{,2»-OXI  HI 
CLV2  ( IVJ  =Z-CPZ 

IF  (LCUT  .GE.l  2))  WR  ITE  (fcUN6sr291  >  1  V,X.,2,0PZ  ,CLV2l  IV  J 
291  FORM/T(3H  T1  ,I3,4F12,Jl 

GOTO  323 

3  3k5  DO  3  13  10=2,13 

I  FIX  .GE.GXI  lol  ♦  GCTC  31fc 

OFZ  =  CZ(  IC-1)  MOZUOMCZl  IC-1 »  I X-OX  (  10- 1  M /<  QX<  lOI-OXC  lO-l  M 

CLvzavi  =z-0Pz 
I  FI  LCJT.GE.  10) 

+  WRITE!  LUN6,3^?6>  IV  ,  X,Z#  IC,  CPZ.  CLV21  I V  ) 

336  F0RMATI3H  T2 , 1  3 , 2F  1  B.a  ,  I  3 , 2F1  0 . 3  ) 

GOTO  320 
310  CONTINUE 

UPZ=CZ!9  )  +!  OZ!  10  »-CZi9)  )«(  X-GXI  9  ) ) /I  0X1  10I-O-X19II 
CLV2  (  IV»  =Z-OPZ 

I  F(LCUT.  GE.10  )WRITE4  11UN6,316)  I  V,X  ,Z,OPZ,  CLV2I  IV » 

316  fOHMZT  (3H  T3,I3,4F.1,Z,3> 

320  CONIINGE 

MIMPUP  CLEAk/iNCE 

325  MINCLH  =  CLa{  1  ) 

IDX=1 

DC  330  IC=2,10 

IF4CL0(  lO.GE.PINCLf  i  GOTO  330 
MINO  LR=CLO( 10) 

IDX=  TO 

330  CONTINUE 

00  3  40  IV=1,NPTSC1 

IFICLVI tlV),GE.PlNCGf»  GCTC  340 

MINCLR=CLV1( IV) 

IDX=  10000'i‘IV 
343  CONTINUE 

IFIC  LH.GE.  MINCLR  )  GCIO  350 
MINCLR=CLH 
I  0X=  1111 

3  50  IF(NUNITS.LE.l)  GOTC  370 

DC  360  I  V  =  l  ,NPTSC2 
IFICLV2(  IVUGE.PINCGPI  GCTC  360 
MINCLR  =  CLV2I IV  ) 

I DX= 100«IV 
360  CONTINUE 

370  IF! LCUT.GE.9)  WR IT E4 LUN6 , 371 )  NINCtR 

371  fORMAT44H  MI  N  ,  F 1  0. 3  ,  U  0  ) 

RETURN 

END 


SUBkCUTiNE  FORCES  (  X  N,  P  AXC  ,  NT  OT  AL  ,S  S  C  ,XP  H  ,ZP  H» 
dimension  a  JI  NVl  6,  6  »»W(  11  0  )  ,XNI  6  )  ,F4  6  ) 

D I  PE  NS  ION  ALPHCi  j,  2  )>:  BET  AD  (3),  FX(3, 2  »,FZ  (3.,  21, RF  4  3,2)  ,TF(  3, 2) 
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1  00 


1 

1  50 


CGMMCN  ALPHA(5»2)» 

BALMCI  3»  ,BALMU(3  I, 

BETA  (i  » .  BETAP  (31  »BN  (  i  >  t  BR  AKER  (5 1 2  J  #8T <i3t  2*'*BWIDTH{  31  , 
CUSA  (3,2  >.COSB(  3  )*CCSGi3*  2»  ,CGFX(2T,  CGFZ4  21  , 

CbX(  2)  ,CGZ(2>  ,CGf-Yii4,CFRl3,2J,CTFi3,2l, 

EFFR AD(5 1 ,ELL( 5>  , 

FHX,FHZ,FN( 3,2» , 

HAI  5  ,9)  ,HB(  5 ,91  ,HC4  5 991- ,HO ( 5, 9 1  ,HE< 5  ,9F»HFl>5i»9(  , 

HFLI  5*91  ,HX(5,i0>,HZC5,lAi>* 

G  AMM A(  3,21, 

IB(5,21,  IP(5,2  1,  IHI  5 #2), 

LGUT,LUN6, 

NSUS  F, NUN! TS, NK( 51, ^W2^  5) , 

UA(9l,CFL(9),CX(10),OZ<lt!l,  ^  ^ 

PMt3  1,  PUWERRI  5,2  )  ,P  Xi3  1 ,  PX  PCGl  3  )-,PZ(  31#  PZPCG4  31  , 

RBCl  ,RBC2,RR13,2» , 

SCALE!  6 »  ,SFLAG<51,SUA(3,2»,SIN0<31,STEP, 

THETBI  ,THETB2  , 

X(5)  ,XPBCi5l  ,XPH45,2># 

Zl  5  1  ,ZPBCI  51  ,ZPRCF45»21»ZPlft4  5#21 


INTEGER  SFLAG 
EXTERNAL  CALFUN 
DSTEP=.0001 

OMAX=lk30. 

ACC=  1. 

MAXFLN=50fe) 

RACI AN  =  5  7.  295779  51 
DC  1  (20  I=1,NSUSP 
SINbd  >  =  SIN(  BETAFM  .1  4 
CGSBI II  =  CGS(  BETAP<  I  >1 
00  100  J=l,2 

SINAI  I  ,J  >=SIN(ALPhAM,Jll 
CUSA (I, J»=COS( ALPHA! i»Jl » 

IF(NW2  (Jl  .NE»0wANC.M<iJ).« EC-01  XN 411  =  •431 
CONTINUE 

IF(NLN1TS  .EQ.  11  N£e=3 
I  FIN  UNITS  .EO.  2  1  NE6=6 
N=0 

SALPHA=0. 

DC  150  I=1,NSUSP 
IF<NVs(  II  .E0.2)GCTC  130 
N=N+  1 

SALPHA  =  SALPHA»S1NA1  I*11-CRP4 1 ,11 
IF(SFLAG(Il.EG-i0.CR.AW(il  .EG.ll  GOTO  150 
N=N*- 1 

SALPHA=SALPHA+SI RA( i92)-CftP(I#2 1 
CONTINUE 

IF(N-EQ.0>  GOTO  180 
SCAL  E(  11=1. 

XN(1  1  =  SALPHA/FLCAT(  M 
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GOTO  IVL 

18;d  WHIT  t(  LUN6 ,181  J 

181  FOkNATlJlH  FORCES:  ERROR  IN  NO.  CF  WHEELS) 

CALL  EXIT 
ivki  continue 

DU  2  2iJ  L  =2  ,NEQ 

IF(  -  .yi.LT.XN(L)  .ANC^XNd)  .LT..01I  XNiLU.Bl 
I  Fi  XN(  L>  .EO.0.  )  SCALEIL)  =  1. 

IF(XN(L>.NE.L.)  SCAL6iL)  =  l  fc  .o*-!  FlXi  ALOG10.i  A8S1  XNIL)  )  )  • 
XN(L  )=XN4L»/SCALE1L  » 

2'<10  CONT  INUE 

I  PRl  NT=LOUT-10 

CALL  ECSCL  (  NEC,  XN,.  f,A  J  INV,  CSTEF,OHAX,,ACC,MAXFUN, 

^  W,MAXC,LUN6, 1  PRINT, CALFUNi 
NTOT  AL  =  NT0TAL  fRAXC 
UO  300  L=i,NEQ 
300  XN(L  )=XN(L)<'SCAL£ilL  ) 

SS0=2. 

DO  400  K  =  1,NE0 
400  SS0  =  SS0+F1K)*-F(K  » 

IFiSSQ.GT.lli30.  )  »iiRiTliLUN5,600»  XN,F,SSQ 

IF(LCUT,LT.  10)  return 

DC  500  J=1,NSU5P 

BfcTAIK  I)  =  BETAP<I  )<-ftAE-IAN 

DC  500  J=l,2 

TFII  ,  J)  =  FN1  I,  J  )*CTFU*J) 

RF4 I » J)=-FN( I ,J) «CRRiJ,J) 

TFRF=TFi  I,  JlfRF(  I,  J  ) 

FXU,JI  =  -FN<  1,  J»  frSXNAII.J)  »TFPF*CGSAi  I,  J  ) 

FZi  I  ,  J)=  FN(  I,  J)  *CCSAII  ,J)  »TFRF*SINA<  I,JF 
ALPHCd  ,  J)  =ALFHA1 1,  JI^I'BADI  AN 
500  CONTINUE 

6.00  F0RMAT(16H  SSC  OVER  L4MIT  ,/,5H  XN=  ,6  4  2  X»F1 2 -3  ), /5H  F  = 
<•  6i  2X,F12.3».,/,6H  SSC*  ,2X,F12.3T 
WRIT  E(  LUN6  ,900)  SSC , )^AXC*  NTCT AL 
IFIS SQ.GT.100.)  wRIIElLUN6,910)  XN,F 
WRIT  E(  LUN6r 92  0  )  XFH,ZfH 
WRITE4LUN6,930)  (,X4  1»  ,  1- J,  NSUSP  » 

WRITF(  LUN6,94  0»  l24  J),I  =  1,  NSUSP) 

WRIT E(LUN6, 950)  4 4 CC*< I I , C CZ ( II *,1=1, 21 

•»kIT  E(  LUN6,960I  4(  AIFHC4  I.  J)  ,  J=  1  I  ,  1=1 ,  NSUSPI 

WRIT  E(LUN6 ,970)  {  (  CiCFX  (  1 1  ,  CGFZ  M  1 1 ,  I  =  1  * 

WRI  TE4  LUN6  ,983)  fhX.fhZ 
WRiTE4LUNP,990)  4  SFLAG4  I)  ,1  =  1  , NSUSP) 

WKITE4  LUN6 , 1000)  i4Nkil»,  l=l  ,NSUSP) 

WRI  TE<  LUN6,1  01  0  )  4  4  R8<  I,J),J=1,2),I  =  1,NSUSP1 
DO  7;?0  1=1, NSUSP 
!  F4S  FLAG4  n.EC.1  )  GCT0  800 
700  CONTINUE 

G  U  T  U  85  0 

800  WRITE(LUN6,1020)  4 EEIACI I) ,I=1,NSUSP) 

WRITE4  LUN6,1025)  IBWIOTH  I »  ,  1=  1  ,NSUS  P* 

WRITE4LUN6,10j4)  <BNU)  ,1=1  , NSUSP* 

WRITE!  LUN6  ,104  0)  H  Ell  I,J)  ,J  =  1, 2*.  1  =  1  ,NSUSP) 
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85«J  WRITE(LUN6  #1050  >  U  CRRI  I,  J  >  t  J=1 .  ^ i  =  1#  NSUSP  I 
WRITE!  LUN6,U‘60*  HCTP{J,J»,J=l.,2l,l=l,NSUSP*- 
wRI TE( LUN6rl070»  ii  fhi I , J) , J=1 , 2 1 , 1=1 ,NSUSPJ 
wkITE(LUN6,10  82l  !  (  B€il  fJ»  #J  =  if  21*  I  =  1*NSUSP* 

WRIT  E{LUN6. 1090  >  UTfH  ,J>  ,J=1#>2»<,  I=i*NSUSP» 
wRITEtLUNb  ,1 100J  ( (/*<  I  ,J  )  ,J  =  1, 2U  I  =  1,NSUSP» 

WRITE! LUN6 ,1110*  4 ( F2< I f J=l» 1=1 iNSUSPT 
WRITE1LUN6,1120>  ! FXtl> ,1 =1 ,NSUSP» 

WRITE!LUN6,1130)  ( PZ4 1 ) , I = J» NSUSP J 
WRI  TE!  LUN6,li40l  4  PF4»I »  ,  1=  1 »  NSUSP) 

900  FORMAH6H  SSQ  ,  E1.2  .J»4X,  7h  CAL  FUN ,  2X ,  14, 4X  ,  8H  TCALFUN  ,2X,  1 81 

910  FnRMAT46H  KN  ,  bl  2X^F  12. 3 1 /6H  f  , 

*•  6<2X,F12.3l> 

920  FORMATIbH  XPH  ,2X,  flZ.  3*  8X,6H  ZPH  ,2X,F12.3> 

9  80  FORM  ATI  6 H  X  , 10!  2X#F 10. 2 M 

940  FQRMATibH  2  , 1042X*Fii3. 2l  1 

95  0  F  0  RM  AT4  14H  CGX!1  )  ,C>G2i4  1),8!2X,F10.2!1 

960  FORMATibh  ALPHA,  104  cX.*F10.  2  >  » 

970  FGRMATIWH  CGFX !  If  ,  CGF2  !  !>  ,  1  0!  2X  ,  FI  0. 1 J  » 

980  PORMAT!3iH  FHX,FhZ  FORCES  AT  TRAILER  HITCH  ,  2  (2X  ,F  10  .2 1  I 

990  F0,RMAT(6H  SFLAG,  10!2X,  I101) 

100  0  FORMAT  !6H  NW  ,10I2X,, 

1010  FORMATlbH  RR  ,  1184  2X,,F  10- 2  i  ) 

1020  FORMATlbH  BETAP  ,  101  2X,Fi0,2  »  ) 

1  02  5  FORMAT!  7H  BW  I DTH  ,  10  !2X,  F10 . 2  1 ) 

1030  FORMATlbH  BN  ,  10!  2X,Fli/.  2  M 

1040  FORMATlbH  BT  ,  1042X*Fi.0. 3» » 

1  050  FORMATlbH  CRR  ,  10!  2X*F  10.i2  )) 

1060  FGRMAT46h  CTf  ,1042X*  F10. 2  1 » 

1070  FORMATlbH  FN  ,  104 -,:X,  F  10.  2  >> 

1080  FORMATlbH  RF  ,iU  4  2X.*F  10.  2  H 

1090  FORMATlbH  TF  ,  104  2X*F  1 0  .2  I) 

1100  FORMATlbH  FX  ,  10  I  2Xi,F  10*  ZU 

1110  FORMATlbH  FZ  , 104 iXvF 10. 2 ) ) 

1120  FORMATlbH  PX  ,  10  I  2X-,F  10  .  2 1  » 

1130  FORMATlbH  PZ  ,  104  iX*F  10 . 2  )) 

1140  FORMATlbH  PM  ,  10  I  iX*  F  1(0  .  1  >  » 

RETURN 

END 


SUBRCUTINE  NFCRCE  I  >X, XXT , XZM, X ZMT* ZZvZZT » 

C 

C 

COMMON  ALPHA(5,2), 
f  bALMCC 31 ,BALMU{3>  , 

«■  BETA43I  ,eETAP4  31  ,BN4  3»  ,  ERAK  ER4  5  ,2T  ,BT43 , 2l',BWi  DTH4  31  , 

*  C0SA(3,2>,C0SB(3  1,CCSG4  3.2  I  ,CGFX4  2  1  ,£GFZ  1 2 1 , 

*■  CGXI  21  ,CGZ42)  ,CGMY4  2  F^CRR  I  3, 2  1  ,  CTF.43,21 , 

f  EFFRADI5  l,ELL(  51  , 

*■  FHX,FHZ,FN43,2)  , 

♦  HAl5f9l»HB(5f9  1,  HC4  5  i9  A, HOIS  ,9  1#HE4  5  f9l',  HFT  5,91, 

HFLI  5,9)  ,HX(5,10i,HZ45,101  , 
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*■  GAMM/!I3,2I, 

••  IB{5,2»  ,IPI5,^»  ,  lh45#2I„ 

+  LauT,LUN6, 

♦  NSUSP,NUNITS,NWlSI,Mi2(5), 

«•  OAly  ♦,Of  L(  91  ,OX{  10.U£Zi  101  , 

«•  PM  (3  l,PUWEHR(5,2I,PXi3>  ,  PX  FCG  (  3  >,  PZ 1 3  » .PZPCG  <34  , 

«■  KBCi  ,RBC^  ,KR(3,2  J, 

»•  S  CAL  El  6  )  »SFLAb(  S),  S  J^At3,2  )  rSINB  <3  »  ,STEP* 

♦  rH£Tei,THETB2, 

••  XI5J  ,XP0C(5»  ,XPWI5,2T-, 

*■  Z<  5»  ,ZPBC(  51  »ZPRCF<5,24  ,ZPKI5,2»- 
C 

c 

INTEGER  SELAG 

DIMERSION  ANGLEr2,2  J*CCSANG(  3,  2  >»  f  ORCEi  3»2,»  *S  1NANG(  3,  21 
XX=- FHXfCGFXi 1 1 
ZZ  =  -FHZ  +  CGFZa  I 

XZM=CGFZ(  ll-^CGXl  lF-C6FX<i  FoCGZi  ll  +  CGMYl  1 1 
Ou  50  l=i,NSUSP 
C  GET  TU  zero 

BN  II  >=0« 

BTI  1  a  »  =0. 

BH  1 ,2»  =  0. 

FORCE!  l,il  =0, 

FORCE!  I,2»=0. 

C  IF  SINGLE  WHEEL  ASSEi«BLY  GCTC  10 

IFISFLAG<I>.Ee^0.OR.ISFLAGU).EC.l*:4NC.NWiI»-.eQ,3ll  GOTO  10 
C  IF  BCGIE  ASSEMBLV  IS  SLPPCPTEO  CN  BOTH  WHEELS  GOTO  20 

I  F  I  I  SFLAGI  I )  .  EQ,  1  »  .  AIvD»4  NW(  H  .  EQ.  01-J  GOTO  20 
C  IF  BCG4E  ASSEMBLY  IS  SUPPORTED  CN  ONE  HHEEL  ONLY  GOTO  30 

IF<  S  FLAG!  I »  .EQ.  1  .ANC»I  NW<  1 1  ,EQ.  UORvNW4  I  k  .EQ.24  »  GOTO  30 

WRITEI  LUN5,5  )  1 ,  SFL  461  1 1  ,  NW  (  H 

5  FURMATI42H  ERROR  IN  WHEEL  SUPPORT  SPEC'.  I,  SFLAG,NW=  , 

*  3( 2X  ,  I3J  I 

C  SINGLE  WHEEL  ASSEMBLY 

10  J=1 

CTf (  I,2»=a. 

CTR  =  CTfl  If  JI-CRR  ( I,  UjI 
IFIFM  I,  Jl  .LE.0.  »  CTR-0. 

PXI  I  )=FN(  I,  J)  fICCSAI  1*J»4'CTR  -  SJNAII,  J»H 
PZII  )  =  FN{JfJI*'(CCSAU,Jl  *  SlNAIi,  J»*CTRI 
PMII  I=FNn,  JI*RR{  I,gA3»CTFI  I,  Ji 
GOTO  4  0 

C  bUGIE  ASSEMBLY  SUFFGRTEC  CN  BOTH  WHEELS 

20  DU  J=l,2 

C  ANGLE  OF  THE  VECTOR  ATTAChEG  aT  WHEEL  CENTER 

ANGL  Ell,  J>=GAMMAI  I,  JA  +  BETAHIII-ALPHAI  I,  JJ 
SINANG II ,J ) =S INI ANCL6I J, Jl  ) 

COSANGII , J>  =  CCS(  ANGLE I  I, JH ) 

25  CONTINUE 

J  =  1 

IFINW2(I>.EQ.2)  FM  i#l  >  =  ,5<'FN  U  ,1  t 
FURC  El  I ,  J)  =FM  I. ,  vjl/CCSGII,  J» 

IHIFNI I, J».LE.a. 4  FCRCEI I,JI=FN4I, JI 

120 


r  n 


H-2i(558,  VOLUME  ii 
listing  UF  PFOGkAM  00578  0 


PAGE  A- 2 8 


C  NCPMjCiL  force  GN  log  II  BEmMIEQ.  FCR  both  WHEELS! 

BNI  I  )  =  FOPCE<  I ,  J>  *CCSANGI  I,  J! 

C  TANGENTIAL  FORCE  ON  iCGIE  BEAM 

BTU  ,J!  =  FCRCEU,  JI«SiNANG4  I»J» 

C  NORMAL  FORCE  TG  THE  GROUND  UNDER  WHEEL  J=2 

J=2 

FORCE!  I  ,J»=BN(  II  /COSANGH.J! 

FNi  I  ,JJ  =FCRCEi  I,  JI<-CeSGil,J> 

L  TANGENTIAL  FORCE  UNCEfi  WHEEL  J=2 

BT  (I  ,J  )  =  FURCE(  I,  Jlt-SlNANfil  1,J» 

C  FURCES  ACTING  ON  fIVGT 

BN2=  EN  in  “a . 

c  total  tangential  FOFGE 

BTT  =  BT  (  I  ,lLiH0T(,i  ,21 
C  COMPCNENTS  OF  THE  P IWCT  FORCE 

PX(I  )  =  -BN2*S  INB(  i)  tEIT^COSBI  1 1 
pzn  >  =  BN2*C0Sei  I  l♦•BTT*SI^^Bt  II 
C  MOMENT  AT  PIVOT 

PMI  I  l  =  FNi  I ,  i  I  ^RRI  I  #  1I*CTF(  I  ,1  !■  t-FNI  I  »2I. *HRI  I  ,  2l*CTFi  1,2) 

goto  4(5 

C  BOGIE  assembly  SUFPCRTEC  ON  ONE  WHEEL  ONLY  i  ON  OBST.I 

3k  J  =  NW  (I  ) 

Bw=.5<'BwIDTh(  I) 

IFIJ.EO.I)  K=2 
IF(J.EQ.2)  K=1 
FNII, J»=FN(I,1I 
FN(I#K)=0, 

CTF( I, K)=0. 

IF(J.EQ.2)  BW=-BW 

ANGL  E(  1,  J)  =  GAMMA<  1,.  BET  A  FM  I  -  ALPHA!  I,  Jl 
SINANGd  ,J)  =S  INI  ANGLE!  nJ)  I 
CUSANG!  I  .  J)  =CGS!  ANC-Lill,‘J)  I 
FORCE!  i,Jl=FN!  I,  J)/ CGSGIT  ,  J  ) 

IF(  FN(  I  ,  J)  .LE.0.  )  FCP£E(I  ,  JI  =  fN(  1,JI 
L  NORMAL  FORCE  ON  EGG i E  BEAM! EC-  FCR  BOTH  WHEELST 

BN(II=F0RCE1 i,J)»CCSANG(I, J) 

C  TANGENTIAL  FORCE  CN  fiCGlE  BEAM 

BT!  I  tJl-FORCE!  I ,  Jl*- S  JNANG!  I,J) 

PXi  I  )=-BN!  I)  «'SINE-<  II  4BT!  I,  JK-CCSBI  1 1* 

PZI I  )=BN!I  l*COSB!  II*ET(  J  ) ‘■S INE!  I  ) 

PM!  I  )=FN!  I ,  J)»RR!I*  JA^'CTF!  I  ,Jl-tEN!  II*8W 
40  CONTINUE 

SO  CONTINUE 

SIGN  CONVENTION  FCR  LENGTH  CF  TFE  MOMENTS  ARMS 

+  FRCM  HITCH  TO  THE  RIGHT  SIDE,  ♦  IN  UP  DIRECTION 
+  FOR  MOMENTS  CCw- 

00  i20  1=1,2 

xx=x  x*px !  n 

ZZ=ZZ+PZ!I) 

XZM=>ZM«-PX(  I)  «Z!  I)*UI  I  l^'X!  I)*PM!1  I 
IJkJ  CONTINUE 

IF!NSUSP  -EQ,  2»  GOTG  2£0 
C  FCRCE  SUMMATION  FOR  TRAILER 

XXT=PX!  3  )  ♦•FHX«-C6fX!  2A 
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c 
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C 


c 

c 


c 

c 


4- 

f 

«• 

f 

♦ 

!• 

* 

*■ 

«■ 

f 

■f 

f 

4- 

«• 

¥ 

* 

»• 

+ 


1  Wt,' 


=  »-FHZ  ♦•CGfZi  2k 

XZPT=-PX(  3I#Z  13  >  ♦PZ^  3  »  ♦CGFZTZ  »»CGX  (  2  li^PM^  31-CGFX  (  2  )«'CGZ  (  2  » 

+  CGM  Y(  2) 

keturn 
xxT  =  i;. 

ZZT=li. 

XZMT=id. 

RETURN 

END 


SUtiRCUTlNE  CALFUN(,N,XN,F> 
INTEGER  SFLAG 


COMMLN  ALPHA(5,2), 

8ALMC(3>  ,BALMUI  3J, 

BETA (3) ,BETAPi 3»  ,BN4 31 , PR AK ER ( 5,2  I , BTii 1 21 ,BW lOTHI 31  , 
COSA<3,2),COSBC  3  I.CCSGI  3,2  ) ,  CGF  X(  2  I  ,  CGFZ  1 2  I , 

CGXI  2)  ,CGZ(2)  ,CGFY{  2I,CRR(  3,2),  CTF.(3,2», 
EFFRAD<5),ELL(5)  , 

FHX, FHZ,FNI 3,21 , 

HA(5,9  9  ),HC1  5^9)  ,HO  1  5 ,9  5 , 9H  ,  HFI5,9I:, 

HFLl  5,  9)  ,  HX(  5 ,121)  ,HZi5, 12)  , 

GAMM  A(  3,2  )» 

IB(5,2),iP(5,2T,IH{ 5rf2), 

LUUT ,LUN6, 

NSUSF,NUNITS,NW( 5) ,NM2<  5), 

OA19  l,0FL<9)  ,aX{  10.1  ,CZ(  1(0  >  , 

PM (3 ),POWERK( 5, 21, PXiB) ,PXFCG{ 3 ),PZi3»*PZPCG(3)  , 
kBCI ,RBC2,KR( 3,2), 

SCAL£(6),SFLAG<5),S  INA(.3,  2»,SlNe(3l,STEP, 

THETEl ,THETB2 , 

X(5» ,XPBC(5) ,XPW(5,2i, 

Z45I ,ZPbCi 5) , Z PR LF4 5,2* ,ZPW{ 5,2) 


DIMENSION  XNI6),F46I 
CTFR  =  XNI  *)  ^-SCALEM) 

FN(1,1)=XN{2)>S‘SCALE42) 

FNi2,l»=XM  BX'SCALE  (3.) 

FNI  3  ,H=XN(  AX'SC  ALE  14* 

FHX=  XN(5  l«■SCAL£l  5  ) 

FHZ=XN(6)<'SCALE(6) 
no  100  l  =  i,a» 

I  ,2)  =  0. 

DO  100  J=l,2 

IFlCTFk.GE .0 . )  CTF ( J  *J ) =CTFRf PQRERftU ^J) *FLOAT 1  IPl I, J»  * 
IFICTFk.LT.0.)  CTFI  UU)  =CT  FRfB  RAKER!  1,  J)  AFLOAT!  IB4  I  ,JII 
GAMMAl I , J)=ATAN (CTF  (  J , J )- C RR M , J ) ) 

COSGd  ,J)=COS(GAFMAU,J)) 

CONT  INUE 

CALL  NfORCE  ( X X , XAT  ,XZR , XZ M , ZZ  , ZZT ) 
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F(1)=XX 
F(  2)  -II 
F(3I=XZM 
F<4»  =XXT 
F (5) =ZZT 
F<6)=XZMT 
RETURN 
END 

SUBRCUTINE  MOVHB  i  CSLOP E., N E CL  , 

♦  NVEHl,RBC,kcFHTl  ,i<HTCH»RWL  TP»  S  SLOP  E,  SSOM  ,TH  tT  A,  T  HETA0,THET  0H, 
f  TWLI R,XPCG,XPH,Z FCG.ZFHI 

C 

C 

CGMMCN  ALPHA(5,2  )t 
bALiMCI  31  ,8ALMUO  I, 

♦  BETAIS)  ,  BET  API  3  »  ,  BN4  3 1  ,  BRAK  EHI  5  ♦  2)  ,  BT43 ,2  »•,  BW  IDTHI  3)  , 

«■  uUSAI3,2»,COSB(3I,CGSGI  3,2)  ,CGrX<2»fCGFZ(2n 

«•  CGXI  2)  ,CGZI  2)  ,CG)<Y4  2*,ChRl  3,2)  ,  CTFI  3  ,Zl-, 

4-  tFFRAO  lb  »  ,ELL  (5)  , 

*■  FHX,FH2,FM  3,2)  , 

»■  HA(  5 ,9  )  ,Hb{  5,9).,  hC  I  5,9  )  ,HD  {  5 ,9  I  ,  HEI5.,  9»  ,  HFi  5  ,9  I  , 

^  HFL(  5,9)  ,HXI  5,10  ),HZ45,10), 

♦  GAMMAI3,2), 

!8I5,2)  ,IPI5,2»,IH*.5J2)  , 

♦  L0UT,LUN6, 

*•  NSUSF.NUNITS  ,NWI5>,  ^W2^  5), 

«•  UAi9)  ,OFL(9)  ,QXM0)  ,CZi  10)  , 

f  PMI 3  ),  POWERRI  5  ,2  l,PX43)  ,PXFCG|3  ),PZI 3 )>.,PZ PCG4 31  , 

♦  RBCl  ,RBC2,RR13,2  ), 

f  SCALE16)  ,SFLAG<5),SIhAl3,2  )  ,SINfcI3  )  ,STEP, 

♦  ThETEl,THETB2, 

XI5)  ,XPBCI5»  ,XP0|5,2*, 

+  Z(5J  ,ZPBCI  5)  .ZPRCFt  5#2 1  ,Z Pk(  5 , 2  ) 


INTEGER  SFLAG 

DIMEASION  AJINV(6,6liiELEV(  5), 

+  KbCI  5)  ,RHTCH12),RWLiRl3.2»  ,T  hET  A  1 2  ),THET  A0 1 5 ), 

*  THETUHI  2),TWLIM{  3 , 2  )  .W 1 1 1  0  )  ,X LI  5i,XPCGl2  ».,ZPCGI2I 
EXTERNAL  ELEVAT 
DO  10  1=1,5 
1...  NK2(U=NRII) 

USTeF=.0001 

DMAX=100  . 

ACC=.1*STEP 
MAXFUN  =  500 
PXPCGl  1 )  =XPCG(  1 ) 

PZPCGl 1)=ZPCG(  i) 

PTHETA=TheTAa  ) 

NEQL=3 
NAGA  IN=0 
NRII  »  =  0 
N  Wl  2  )  =0 
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THEY  ei  =  ThETAi5(  1» 

THETe2  =  THETAi)(  2) 

RBCl  =RBCm 
RBC2=RBC  (2  > 

IF(SFLAG(1»  .EQ.IdJ  GCTC  2^ 

NECL=4 

XL  (4  )  =  BETA(  1 » 

2.1  IFISFLAG(2).Ee.0)  GCTC  30 
NECL=NEQL*-1 
XL(NiE0L)=BETA(2l 

30  XL  (I  >  =  PXPCG(  II  ^-STEP^CSLOPE 
XL  (2  *=PZPCG(  i  )  ♦•STEP.^'S.SLGPE 
XL  (3  l  =  PTHETA 

IF1LCUT.GE.10)  WRIT  E41UN6,46I  NECL, 

^  theT  fcl,RBCl,THETe2,fieC2,iXLa)  ,L=1„NEGL  ) 

46  FOKM/1T16H  MOVE  1 ,  I4,  14F  8 .  B)- 

LOUT=LOuT+i 

CALL  ELEVAT  1 NEQL , X U E LEV » 

LOUT=LCUT-l 
! PRI NT=LOUT-10 

CALL  EOSOL  (  NEQLifXL  ,BLEV,  AJINV.LSTEP, 

^  DMAX  ,ACC,MAXFUN,W-,MAXC,  LUN6,IP,PINT  .ELEVAT) 

LCUT  =  LOUT«-l 

CALL  ELEVAT  ( N EOL.XL^EL EV ) 

LCUT=LUUT-1 

SSQM=0. 

DU  5  2  L= 1 .NEUL 
50  SSCM=SSOMfELEVIL  fc-fo-Z 

XPCGll)=XL(l » 

ZPCGli  )  =  XL(2) 

TH6TA(  1)=XL(  3) 

IFacUT.GE.10)  WRHEt4LUN6,6i  )  XFCGll  )  ,ZPCG4  1  ),THET AJ  H, 

«■  XPBC  (1  )  ,ZP8C{  1  )  ,  XPWIi,l  »,ZPW(  i,l*,IH<l,a),XPBC|2)  ,2PBCr2), 
+  XPWl  2.1 )  ,ZPW1  2,1  ),  IF42,1.) 

61  FORMATION  MOV  E2 , 7F 10  I  3,  4F1  0  .  J  ,  13  ) 

IF! S SQM. GT. 10. )  WR IT  El L U N5 ,66  I  SSCM.MAXC 
66  FORMAT123H  SSQP  CVEf  LIMIT:  SSQM=,E1527, 

+  6H,  MAXC=, Ib  » 

IF<NEQL.EQ.3)  goto  300 
C 

C  ONE  SUSPENSION  ON  UNIT  1  IS  A  BCCiE 
C 

I F ( S FL aG ( 1)  . £0 . 1 .ANC aNW M I .EQ*0  )  GOTO  70 
BETA(2)=XLi4) 

GOTO  80 

70  BETAn)=XLl4) 

I  F<LGUT.GE.i0)  WRlTElLUNb,  71  I  B  ET  AM  4.,XPWn  ,  2)  ,ZPWU  ,2 ) » 

«•  IHM  ,2) 

7]  F0RMAT16H  MOV  E3 , 3F 1  02-3 , 13  ) 

IF1SFLAG12).EQ.0.CR«NW12).NE.0)  GOTO  85 
BETA12I=XL15» 

80  I  FI L  CUT  .GE.i0)  W B IT  E^LUNb  ,  8 i  )  B ET A4  2  )  rAPW  1 2, 2)  *Z;PH  (2  ,2  )  , 

*  IH12,2) 

81  form  AT  <:6H  M0VE4, 3Fi0Aa,  I3J 
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CHECK  FIRST  SUSPENSION  ECGlt  CUT  OF  LIMIT 
IF  SINGLE  AXLE  GK  BOGIE  ON  BOTH  WHEELS  LEAVE 
THETBl  AND  RBCl 

5  I  FI  SFLAGUI  .EQ»a  .GR-NWUi*NE.*3»  GOTO  190 

IF! BETA! il .GE.BALMUI lit  NW( 1 1=1 
IF!  BETmI  1»  .Le.BALMDim  JSWU»  =  2 
IFI  SFLAG(  i>.EQ^0.GR.4SFLAGUI.EC*l.  AND. 
NW(1  ).EO.0»  >  GOTO  ISi 

IFlSFLAG(n.EQ.l.ANDANwn  »  .EQ.l  »  GOTO  150 
FIRST  SUSPENSION  BOGIE  CN  REAP  WHEEL  ONLY 


THETBi  =  TWLIMt  l,2  I 
RBCl  =RWL  IMI  1,2) 

BETA<i)=8ALMOIi) 

GOTO  170 

FIRST  SUSPENSION  BOGIE  CN  EROKT  WHEEll  ONLY 

150  THETei  =  TWLlMl 1,1  I 

RBCl=kWLIMll  ,i  h 
BETA! ll  =  BALMU(l  ) 

170  IF  (NEQL  .EQ.5)  XH4»=.XLL5I 

NEQL=NEQL-l 
NAGa1N=1 

CHECK  SECOND  SUSPENSION  ECOIE  OUT  OF  LIMIT 

IF  SINGLE  AXLE  CK  BOGIE  CN  BOTH  WHEELS  LEAVE 

THETB2  AND  RBC2 

190  IFISFLAGI 21 .£G.0.OR,NWl2) .NE.0)  GOT G  280 

I  F(BETa(  2I.GE.BALMU<2»  )  NW(  2)=1 
IF(BETA<2)  .LE.BaLMD(2)  )  NW(2)  =  2 
IFISFLAGI2)  .EOi0.OR,4>SFLAG(2I.EC.l..  AND. 

*■  NW{2  I.EO.0)  >  GCTC  28.0 

IF<SFLAG(2» .EQ.1.ANC4NW42F.E0.1 »  GCTO  250 

SECOND  SUSPENSION  BOGIE  ON  REAR  WHEEL  ONLY 

THeTe2=TWLIMI 2, 2  > 
kBC2  =RWLIMJ  2,21 
BETA12)=BALMC12) 

GOTO  270 

SECDNu  SUSPENSION  BOGIE  GN  FRONT  WHEEL  ONLY 

250  THETB2=TWLiM(  2,1  I 
kBC2 =RWLiM{2  ,1  ) 

BETA( 2)  =  8AlMU(2  ) 

NEGL=NEGL-1 

NAGAIN=1 
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C 

2  8D  IF(NAGAiN.EQ.0J  CUTi.  30 

NaGAIN=0 
GOTO  30 

C 

c 

C  UNIT  1  POSITIONED  CN  WFEELS  -  CHECK  FCN 
o  SPKUCKET/ItLEH  INT EPFER EN.C 8  JF  TRACKEC 
C 


300  IF (NVEHl  .NE.3)  GOTC  600 

C 

C  tracked  VEFiCLE 
C 

c  IDLER  AND  SPROCKET  SUPPORT  CHECK  HERE 

C 


XSF=XPCG(  n  fKBCI  Alices  (THETAS UJ  ♦THETA!  1  FI 
ZSF=2PCG(  IT  +  kBCI  A»*‘SIMTHETA0I  4FFTHETAI  HI 
CALL  WHEELi  <  E » HA,  HC»HE,  HF  ,  HX,-!  Hi4 11  r4  ,  LOUT  ,LUN6, 

*■  XSF,2SF,ZPR0F<4,  IM- 

IFILCUT.GE.10)  WRIT  EliLUNb  ,311  >  X  Sf  ,ZS  F%Z  PROFl  4,  1 J  r  IHI 4,  1 » ,  E 
311  FCRMATITH  MO  V  ES4  ,3  f  1.0>,3  ,  15  ,  F 1 0 . 3 1 
iF(  E  .GE.-.  II  GOTC  4  04* 

C 

C  FRONT  SPROCKET /IDLER  I  NT  E  F.EERENC  E 
C 

THETBi=ThETA0 (41 
KBCl =RBC(4» 

IFISFLAGI  II  ,EG*0.OR :.NW(  l  UNE^DI,  GOTO  320 
IFINEQL.E0.5  >  XLI4)=XLI5I 
NECL=NEOL-l 
320  N4GaIN=1 
N  W  (  1  1=3 
C 


400  XSR=XPCG(1I  ♦RBCI  5 1 C GS  (  THE T A 0 1  5  l+T H ET A!  1  )  » 

ZSR=  ZPCGU  »*R8C(  5I*SJNI  THE  TAW  (5  »  »TFETA-<  H  I 

CALL  WHfcELi  ( E,HA ,hC#H£ ,HF ,HX, I  HI  5% 1  1,5 ,LOUT ,LUN6» 

♦  XSF,  ZSF„ZPROFI  5,  HI 

IFILCUT.GE.10)  WRITE*LUN6,4ll  I  XSR ,  ZSR,  Z  PROF!  5 , 1 J  ,  IHI 5 , 1 1 ,  E 
Ail  FGRMAT(7H  MG  VES  5 , 3F  1  kl»3 , 1  5,  F 1 3  ) 

IF(E.GE.-.ll  GOTC  5241 
C 


L  REAR  SPROCKET/ IDLER  INTERFERENCE 
C 

THETB2=THETA0( 5  I 
RBC2  =RBC(5  I 

iF(SfLAG(  2l,EQ.id.CR»NWl  2J.NE.0)  GOTO  420 
NEGL  =NECL-1 
420  NAGAIN=1 

NW  I2  1  =  3 
C 

500  I  FI NAGAI N.EQ.0I  GCTC  60C 

NAGA1N=0 
GOTO  30 
C 
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C  ANGLE  UNDER  WHEELS 
C 

ok50  IF  (NWl  i»  .EQ.  2  »  GCTO  410 

CALL  WHEELl  (  ALPHA*  1  *1  F, HA ,HC,  H E,  1H(  1 ,  U  ,l#OX, OZ  , 

*■  XPWd.l)  ,ZPW(1,1F» 

IFILCUT.GE.I  J>  WRITEI1UR6,60P>  XPH4L,1F,ZPM(  Lfl>  » 

♦  IHd  ,1)  .ALPHA!  1,  1» 
b06  FORM/!Ti7H  MOV  E 1 1  » 2F  10. 3 , 14  ,  FI  0*  3 » 

bi0  IF  (  N  Vv!  1*  .  EQ.  I  «CR  .SFLAiGI  1  )  .  EG.0  >  GOTO  620 

CALL  WHEELl  < AL PH A{ 1 #2 ♦ . H A , h0» RE# lH4i . 21 # i%OX, Ui, 

+  XPWl  1,2J  ,ZPWU,2d 

IF (LCUT.GE.10)  WRITE  ILUN6# 6  16>  XPW ( 1 » 2 1 #ZPW tl #2 >  , 

+  IHI 1 ,2  I  ,  ALPHAd  ,2J 
616  FURMATITH  MGVE12 ,2F1J.3» J4»F1043> 

62  0  IF1NW(  2I,EQ.  2)  G  CT  G  43  0 

CALL  WHEELl  ( ALP HAli |1 > »HA , HD, HE # IHI 2#! J r2#0X »OZ » 

*■  XPWI  2.1)  #ZPW(2,1  d- 

IF (LCUT. GE. 10)  WRlT£tLUN6.626)  XPWS 2 ,1 1 #ZPWl 2# 1 » » 

»■  THI2  ,1)  .ALPHAia.l) 

626  FORMAT  (7h  MOV  E2l  .2F  1^.3, 14  #F1  0 .3  ) 

6  30  IFINWI  2)  .EO.l  .OR  .SFLAGi  2)  .  EQ.0)  GOTO  640 

CALL  WHEELl  (  ALPHAI  2  |2  I  #HA  »HD#  HE#  IH(2  #2  ),  2#OX»  OZ# 

«■  XPW(2,2)  .ZPW(2,2)> 

IFI  LCUT.  GE.  10  )  WRIT EI31UN6  .636*  X  PWl  2  »  2  T»  ZPWI 2  »  2  I  # 

*■  IH(2#2I,  ALPHA<2, 2» 

636  FUkMAT<7H  MOVE22,2F10,3#I‘*,F10.3) 

640  CONTINUE 

LOCATE  HITCH 

XPH=  XPCGIl)  i-RHTCK1I  «CGS(TFET0H  ( 1)*-TH6TA  (1») 

ZPH=ZPCG(1  1  +  RHTCHl  1  )  tSl  M  T  FET0HU  )  tTHET  At  D) 
IFtNLNITS.EQ.D  RETURN 

SECOND  UNIT 

IFCSFLAGIJI.EG.l*  GCIC  670 
SINGLE  AXLE  TRAILER 

KSQ=RWLIM(  3,  1)«'«‘2 

CALL  WHEELZ  1  EFF  FAD  ,  H A# HD ,  H E,  HF  . HX,#  HZ #  IH4  2#  IT, IH ( 3. 1  »  » 

*■  3.  LGLT.LUNb  ,OX  .GZ#  ALPHA (3, 1  *,  RWLTM13  #1  »  ,RSQ.XPH# 

XPw(  3,1*  .ZPH.ZPWIS.I*) 

XPBC (3»=XPW( 3,1) 

ZPBC(3)=ZPWI3.1) 

A=ATN2i:  ZPBCI  3)-ZFH#XPBC(3)-XPHI 
THET A( 2*  =A-TWLIM43, I* 

XPCG4  2  l  =  XPH<-RHTCHi  2  I^CGSi  THET0H 1 2  l•>THET Al  2  * ) 

Z  PCG  (2»  =  ZPH<-KHTCH(2»4SiNrTHET0H|2)  ‘•THETA42* » 

IFI  LCUT. GE. 10)  WRlTEi<LUN6,656T  XPH#ZPH#  XPW4  3#  1 »  ,  ZPW4  3#  D  # 
*  ALPHAI3,ll  ,XPBC(3*#ZPaCl3)  ,A,THETA12)  ,XPCGt2T#ZPCGI2* 

656  FURMAT(7H  MOVEA3# llFi0.3 ) 

RETURN 
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C 

BOGIE  AXLE  TRAILER  -  TEST  !F  CN  FRONT  WHEEL  ONLY 
67kJ  kSO-RWLINO»  1 )  2 

CALL  WHEEL2  (  Ef  FR  AD  ,  ItA,  HD,  HE,  HF  ,HK.,  HZ  ,  I  HI  2.  1  I ,  IH<  3#  1 1, 

«■  3,LULT,LUN6  ,CX,GZ,ALRfcA{3;,  1 1 ,  RWL  iM4  3  ,  i  i,  RSO,  XPH, 

+  XPW(  3,  1  )  ,2PH,ZPWU,  IH 

m=ATN2  (ZPW(3 ,i»-ZPh,XPW<3,  U-XPH  ) 

T=A-ThLIH(3, 1  ) 

XPW(  3,2)=XPw(3,i)-El^JCTh(3)«'C0SIbALMU|.3>«-T* 

ZPW(  B.ii  I  =ZPW|  3,11-BW  iDTHi  3  »# SI  N i  E  ALMUI  3  »  i-T  i 

call  WHEEL3  (  EL  E  „HA  ,HD ,  HE#  HF*  HX  ,  1H4  3*2  »-»  3»LaUT  ,  LU  N6, 

»•  XPWI  3,2)  ,ZPWC  3,2*  ,ZfPCFi  3, 2)) 

IF{  ELE.LE.id.  »  GGTC  6^2! 

C 

C  TRAILER  BOGIE  CN  FnONT  WHEEL  CNLY 

C 

NW(  3  )=1 

BETA  (3  »  =  bALMU  (3) 

XPEC  (3)=  XPW  (  3  ,  I>  -  »5*BWI.DTH(3  I'i'CGSI  EALMUi  3  )  +Ti 
ZPBC13  >  =  /PW(  3,1*  -^S^ewiCTHnix-SINIEALMUISJ^T) 

THET A( 2  »  =  T 

XPCG(2*  =  XPH+RHTCK2  X-CCS  ( T  HET  0H  (  2  »  *T  ) 

ZPCG<2)=ZPH4-RHTCH(  2  »«SIM  THET0H(2  UT  ) 

I  F  (LCUT  ,GE.  10)  WRITE4,LUN6, 6d6»  XPH.,2PHi,  XPW  I  3),  1  l.,ZPW  (  3#1  *  , 

*  ALPHA(3,i*,XPBC(3*,Z#eC13)  ,  A  ,  T  ,  XPCGI  2*-,  Z  PCGI  2*  ,  NW4  3* 

68t)  FORMAT(7H  MOV  EA4  »  1 1  fa0 . 3 , 2 1  3  ) 

RETURN 

C 

L  THALLER  ROGiE  NCT  CN  FFCNT  WHEEL  CNLY  -  TEST  IF  ON  REAR  WHEEL  ONLY 
C 

690  RSQ=RWLiMl  3,  2) ’!’«-2 

CALL  WHEEL2  I  E  FF  R  AD  ,  FA,  HC  ,  H  t ,  HF  ,  HX,  HZ*#  IHI  2#  1 »  ,  IH  1 3,  2  *, 

*  3  ,  LOLT,  LUN6  ,  CX  ,  CZ,  A  LPHA4  3 ,2  »  ,  RWL  IH<  3»2 * ,  RSQ#  XPH, 

»■  XPW(B,2)  ,ZPH,'ZPW(3,2*» 

A=aTN2<  ZPW(  3,2  •-2FH,XFW1  3,2  )-XPH) 

T=A-TWLJM{3,2I 

XPW(  3,  i  )  =  XPW(  j  #2  )*BW  IDT  HI  3  )«-COS  (  BALM  Cl  3  )  *-T  * 

ZPw  (  3,1  )  =2PW  (3 ,2  )  ♦’BiW  JDTK(  3)  ^-SIN  (BALMCT3>  ♦•T  I 

CALL  WHEEL3  (  EL  E  ,  HA,,  HO ,  HE,  HF ,  HX  ,  IHI 3 , 1)  ,  3,  LOUT  ,  LUN6, 

*•  XPW(  3,1)  ,ZPWi3,l  ),ZFPCF{3,1*) 

I  F(  FLE.LE.  0.  )  GGTC  720 
C 

C  TRAILER  BOGIE  CN  REAR  rtHEEL  ONLY 
C 

N  Wl  8  )=2 

beta  (3  )=BALMD(  3) 

XPBC13  )  =  XPW(  3,2)  »,5->BWICTH(3)<'CCS4  BALMCC  3)/i'T  ) 

ZPBC  <  3  )  =  ZPW(  3 , 2  )  ♦.iS  *tiW  ID.TH4  3)  ^S  INI  EALMCOX-T  ) 

THETA(2) =T 

XPCG  {  2  )  =  XPH*  RHTCF(  2  »<fCGS(  THET0HI  2*  *;T  )> 

ZPCG{2  )  =Z  PH*RHTCM  2  »<;S  IN  ( T  H  ET 0H  (  2 )  >T  ) 

T  FIL  CUT.  GE.  10  )  rtRITEi  LUN6,716)  X  PH,  ZPH,  XPWI  3,  2  »  ,  ZPW  C  3,  2  ) , 
ALPHA(3,2)  ,XPBC(  3)  ,ZCBCt  3)  ,  A,  T, ’XPCG  1 2  )  ,ZPCGI  2*  ,  NWl  3) 
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71o  FQRMAT{7F  MOV EA3 , i lFiffl*3, 2 1 3  I 
RETURN 

C  TRAILER  BOGIE  CN  BOTH  WHEELS  -  SEARCH  CN  BOGIE  ANGLE 
C  UNTIL  BOTH  WHEELS  ARE  CN  FUB  PROFILE  TC  WITHIN  TOLERANCE 

C 

72^,  IF<  ABSI  cLEULE..  11  GCTC  802 

BC2=  .5  i'tiifilCThli  » 

BETA(3»=BALMD( 3» 

IFILCUT.GE.il >  WRITE*LUN6,721»  EL E. 8C2, BET  A 1 3 1 
7^1  FORMATI8H  MOV  EA5  A.  3  fl  0.3  > 

725  DELTe=ATN2(-EL  E^  e02» 

bETA(3)=BETAl31+CELTB 
X2  =  ELL(3)-6Q2*CGSIBEiA(3»  T- 
Z2  =-REFHTl  fEFFRACT  3MBC2<'S  INI  BET  AI  3T) 

RH2SG=X2<'X2+Z2<'Z  2 
RH2=S0RTIRH2SQT 
THET2=  ATN2I  Z2,X2  » 

IFITFET2.GT.3.>  THET2  =  THET  2-6. 2 8 31 85 j 

CALL  WHEEL2  I  E FF RAD*HA,  HD#  HE, HF .HX  , HZ #  IH(  2 iU  t  IH(  3, 2  »  . 

+  3  ,L0UT,LUN6,CX,0Z,  ALfihAI3,<il,RH2,RH2SO,XPH, 

*•  XPW(  3.2»  .ZPH,ZPWl3,2n 

A=ATN2 (ZPW{3,2»-ZPH,XPW(3, 2)-XPHJ 
IFtA.GT.B.l  A=A-6. 2831853 
THETAI 2>=A-THET2 

XPW{3fll=XPwI3,21  ♦BWI.DTHI  3  )  <-COSITHET  Ai  2»  »BET  A(  3n 
ZPW(  3,  1  >  =ZPW  I  3, 2  »+BW  IDTH(  3  » «■  SIN  MH ET Al 2  1  ♦BET AI  3 )  > 

CALL  WHEEL3  I  ELE  »HA  ♦HC ,  HE  ,  HF,HX  ,  IH4  3,  i  H,3  ,4.0UT  »LUN6  » 

♦  XPW(  i, I > fZPWi 3^1  ),Z PRCFI 3,  1)  I 

1F(  LCUT.GE.llJ  WRIT£aUN6,751>  CELTB,  BET  A  (.3  >  ,X2  ,Z2,R  H2S0  , 

+  RH2f  THET2,  XPrii  3  »  2  >  ,  ZBWl  3,2  )  ,A,THET  AI  2 » XPWI3 , 1 1  ,ZPW1  3,  II  ,ELE 
751  FORMATIBH  MOV  £  A5  E,  7#  321 .3/ 8  X  ,  7F  1  23  I 
IFIABSI  ELEI.GT..  1»  GCTC  72  5 

BOTH  WHEELS  ON  HUB  PROFILE  TO  WITHIN  .1  INCH 

bP0  CALL  WHEELl  { AL PHA I  3# 1  * , H A  ,  H t , H E » I  HI  3 ,3 1 » 3»OX ,OZ , 

♦  XPWI  3,11  ,ZPW  (3,1)1 
NWI3)=0 

XPBCI3)  =  .5*1  XPWI  3,1  M'XPW13,2)  » 

ZPBCI3I  =  .5*I  ZPrt(  3,1  t*ZPWl3,2l.) 

XPCG(2)  =  XPH*-RHTChI  2l<iCGSlTHET0Hl  2)'*TH£TA42I) 

ZPCGI 2  I  ^ZPH*  RHTCH4  2  I ASIN4  T  H  ET0  HI  2) +T  HEIA  42  1 1 
XTeMf'=  XPW13, 1  I-XFWI  3,2) 

ZTEMF=ZPWi3,l  )-ZFW(  3,2> 

BETm(3I=aTN2( ZTEHP, XTEMF) 

IF(LCUT.GE.ifc)  WRITE4LUN6, 611 )  XPC G ( 2  I , Z PCGI2 ) ,THET A 1 2 ) # 

♦  aPBC  (3  ) ,  ZPBCi  3  ) ,  I  XPWii,  J)  ,2PW(3  ,Jl  ,  ALPHA!  3,  J)  , 

«■  J=1,2),XPH,ZPH,NW(3) 

811  FOKMAT(7H  MOV  E  A6  ,5  f  10 . 3 /2 1  3F  10.  3 1 , 2F1 0.3 , 13 ) 

RETURN 
END 
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C 

SURkCUTINE  ELtVATi NECL,XL, £LEV ) 

C 

C 

COMMCN  mLPHA{5,2I, 

BALMCI  3>  *BAlMU(  3  ), 

^  BETA  I3»,BETAP(3>  »bN  (il  ,  Ek  AKER  1 5 ,2  i,,BT  (3,2  i*BWl  DTH(  31  , 
*■  CUSA(3,2  ),C4jS8(  3),CCSG(3  ,2  I  ,CGf  X4  2I-,  CGfZI  21  , 

«■  CGX(  2»  ,CGZ  (2  I  ,CGkYT2*,CFR(  3,2  ),  CTf(:3,2i, 

^  LFFRADI  5  )  ,ELL(  5)  , 

»•  FHX,FHZ,FN(3,2», 

HA(  5  ,9)  ,Hb(  5  ,91  ,F.C=(  5,91  ,H 0  * 5,  9  I  ,HE  (  5  ,9 1  ,HF4 5 , 9 )  , 

+  HFL*  5.9)  ,HX(  5  ,iki  ),H2i>5,12  )  , 

GAMMA(  3  ,2)  . 

<■  Ib(5,2)  ,  IP(5,2  >,IH(  5rf2»  , 

*■  L(JUT,LUN6, 

+  NSUSP,  NUNITS,  NW(  5»,.M«2l  5)  , 

OA  (9  »,aFL(9)  ,  CX(  Ibl  ,GZ(  10)  , 

*  PM  (3  ),POWERR(  5,2  ),PX*3I  ,  PX  FCG(  3  »•,  P2  (  j ),  PZPCG<  31  , 

«•  RBCl  ,RBC2  ,ftK  (  3,2  »  , 

f  SCALE!  bl  ,SFLAG(5f  ,SJAA(  3,2),SINe(3),STeP, 

♦  THETei.THETB2, 

<-  X(5»  ,XPbC(5l  ,XPW<5,2R, 

+  Z4  5I  ,ZPBCi  5)  ,ZPPCF  (  5^21  ,Z  PW(  5,2  ) 

C 

c 

INTEGER  SFLAG 
C 

DIMENSION  XL( 5), ELEVtSI ,XLL(5I 

C 

C  XL(1>=  X-PCSITICN  OF  CG  OF  UNIT  1 
C  XL(2I=  Z-PCSITION  UF  CC  Of  UNIT  1 

C  XL(3)=  PITCH  ANGLE  UF  UNIT  1  WRT  GRCUNC  CCCPDINAlES 

C 

c  XL(A»=  PITCH  angle  CF  FCRWARC  MOST  BOCiE 
b  ASSEMBLY  ON  UNIT  1  WRT  VEFICLE  CCCRCINATES 

C  XL(5»=  PITCH  ANGLE  CF  SECCftC  ECGIE 
u  ASSEMBLY  ON  UNIT  i  MRl  VEFICLE  CCCRCINATES 

C 

C  eLEV(l)=  DISTANCE  OF  CC  FPCM  LAST  ECUlLIBRiUM 
C  PCSLTICN  MINUS  STfiP 

b  £L£V(2»=  ELEVmTIGN  CF  FIRST  WFcEL  WRT 
C  I TS  HUB  PRCFI LE 

C  eLEV(3)=  elevation  of  SECCNC  wheel  WRT 
C  I TS  HUB  profile 

C  ELEV(4)=  elevation  CF  ThlRC  WHEEL  (WHEN  PRESENT)  WRT 
C  ITS  HUB  PRCFILE 

C  ELEV(5»=  elevation  UF  fOURIF  WHEEL  (WHEN  PRESENTI  WRT 
C  I TS  HUB  PROFILE 

C 

uC  12  L=1,NEQL 
1  XLL(L»=XLIL) 

XSQ=  STEP<'STEP“(  XLL4  2i-PZPCC(  11  X't'Z 
PLEV (1 l=XLL( 1) -PXPC£4i » -SORT ( ABS ( XSQ »  F 
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thET=XLL(3) 

C=C0  SI  THETBl+THETF 
XPBC(1)=XLL(  1>*RBCI<'C 
S  =  SIM  THETBl+THtTT 
2  PBC  (H  =  XLL(  »  +  REC1»S 
C=CO  SI  THfTB2  +  THET» 

XPBC{2)=XLL(  il*KBC2«-C 
S  =  S1MTHET82  +  TH£T> 

ZPBCI2  )  =  XLL{  2  >*-REC2  *S 

IFILCUT.GE.II  )  WRlTE«LUN6,2tl  C.,S»XPBCI 
*  ZPBCn  )  ,  XPBCI  2  )  ,2PBCt2J  ,<XLLI  11  ,I=1,NEQLI 
21  FORMAT  (8H  ELtVATU  UO0.3I 

I  FIS  FLAG!  U  *  EO.l  •  ANCZAiWI  li'.EQ.0>  GOTO  30 

FIRST  ASSEMBLY  IS  ON  SINGLE  NHtEL 

IFISFLAGI II .EQ^l  .ANC,NWiiL.NE.3l  GOTO  23 

C«LL  WHEEL3  I  EL  E VI  2  MlsA  »FiD,  FE,  HF,  HX ,  IHI  1,  1 1*  1»  LOUT,LUN6 , 
+  XPBCll  ),ZP8CI1  »,ZfR£F.Il  ,11  > 

XPWI  1, l)=XPBCt il 
ZPHI  l,;l  l  =  ZPBCI  1  I 
GOTO  50 

^3  IFI  NVI  11  .EO.<:l  GCTC  2? 

XPWI 1,11 =XPBCI 1 » 

ZPWli,ll  =  ZPBCI  1 ) 

CmLL  wheel 3  IELeVl2»iFA,HO,FE,Hf If IfLOUT, 

+  LUNb.XPWtlfl  >,2PW11  ,l»,ZPRCFn,lil 
bETAIll  =  BALMUI  II 

aPBC  II  l=XPWl  1,1  )--5*8WlCTH(l  IfCCSl  BALMUill^#!  HET  I 
ZP8C  II  )  =  ZPW(1  ,11  -.5*8WlCThIll«SJNLeALMUni>THETI 
GOTO  50 

27  XPWI i,2l=XPBCIil 

ZPWI  l,21=ZPBCn  I 

CALL  WHEtL3  I  ELEVI  2  i#llA,HD,  HE,  Mf  rW,  IHil  ,2l  ,l»LOUT  , 

LUNfa  .XPWI  1  ,21  ,ZPWi(  l,2l,ZPR0F41r2HI 
b£TAI14=BALMDU» 

XPBCll  I  =  XPWI  1,  21  t.S^eWlCThMX-CCSIBALMDI  iHtTHETl 
ZPBCIl  »  =  ZPWl  1,  21  <-.5*ewlCTHl  1>«-SIM£ALHDI1  H-THETI 
GOTO  50 
C 

C  FIRST  ASSEMbLY  IS  BCGI E 
C 

30  kWl  =  .5 -^BWIOThl  II 

C=COSJ[  XLLI4)  +  THETI 
XPWI  1,  LI  =XPBCa  l+RWKC 
S  =  SiM  XLLU)  ♦THETJ 
ZPWI 1.11 =ZPBCI 

CALL  WHEEL3  1 1 LEVI  2  If HA, HD , HE, HF, HX , iH4 1, 1 », 1 ,LOUT ,LUN6 , 
4-  XPwt  1,11  ,ZPWU  ,1  3,ZPR0FI1,1II 
XPWI  1,2I=XPBC(  ll-RW  HC 
ZPWI  1,2I=ZPBCI1  l-BWi>»S 

CALL  WHE£L3  I ELE VI 3 l#bA,HD, HE, HF, HX , IHI 1, 2J , 1 ,LOUT ,LUN6 , 
4-  XPWI  1,24  ,  ZPWI  1,2  4,ZPRCFil  ,2n 

IFILCUT.GE.II  »  WRiTE«LUN6,-4i  I  C,  S,  4  XPWi  I  ,  J.l, 
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<■  ZPW(  1,  J»  ,ZPkaF(  l,J»,,iH=(  1,#J  »  ,J  =  1  ,2) 

41  FUftMAT(8h  EL  E  V  AT  2 , 2  F.liJ .  3/2  ( 3f  liJ  ^3  ,  I  3  i  » 

SlL  IF(SfLAG(2).EQ.l  .ANC.w/VW(2)  .eC.0»  GOTO  70 

C 

C  SECOND  ASSEMBLY  iS  ON  SINGLE  WHEEL 

C 

IF(SFLAG(2) .£Q*1  .ANC4NWI2> .NE.3I  GOTO  53 

CALL  WHEELS  (  cL  E V(  N  EQL  I  ,HA  ,  EO* HE, HF,  HX,  IH  (  2,  1»  ,  2# LOUT , LUN6 1 
*■  XPBC{2  »  ,  ZPBCl  2  ),  2PRCf<2,l>  J 
XPWl 2, 1»  =XPBC(2J 
ZPW( 2, 1 »  =  ZPBC( 2  » 

GOTO  60 

S3  IFCNm  2>  ,EQ.  2»  GCTC57 

XPW( 2,11 =XPBC(2) 

ZPW(  2,  H  =  ZPBC(  2  1 

Call  WHEELS  (ELEVINEGL)  ,HA,hD,HEfHF,hX*IHU»lI»2,LOUT, 

*  LLN6  »XPW(  2»1  I  ,  ZPWI  2  ,1*»2PRCF<2,  Hi 
BtTA {2»=bALMU(2) 

XPBC(2)  =  XPWl2,l>-.5'»JWIDTH{2)<‘CGS<e  ALMUI  2  L  *T  HET  ) 

Z  PBC  1 2  )  =  ZP W  (  2 , 1 )  -  . 5  ♦8W  ICT  H  {  2  l«S IN  I B  ALMU  (2  I  *-T  HET  i 

GOTO  60 

57  XPW( 2,21=XPBC( 2> 

ZPW* 2.2»=ZPBCI2) 

CALL  WHEELS  (  EL  EV (  N  E CL  )  , HA ,  HO,  H E,HF ,  hX*  iHI  2#  2i  ,  2 , LOUT , 

^  LUN6,XPW<2,21  ,ZPWl2,2l,ZPPCF(2,2ii 

bETA{2 »=BALMDI 2» 

XPBC<2i  =  XPWI2, 2i  ♦►50EWIDTH<2I#CCSC  BALMOi  2if-THET) 

ZPBCi2  »  =  ZPW(  2 ,2  >  ♦,5<'8WICTH1  2)«'S  INI  BALMD4  2  IH-THET  ) 

60  IF(LCUT.GE.lii  WRIT  EiLUNZi,  6l »  4  EL  EV  (  1 1  ,  1=  l.N  EQL  » 

6  1  FORMAT  (8H  E  LEV  AT  3,5  FI  0.3  ) 

HETU  FN 

SECOND  ASSEMBLY  BOGIE 

70  NMl=NEeL-l 

RW2=  .5<‘BWIDTH(2  ) 

C=COS(XLL(NECL  H-THETI 
XPW( 2» ll=XPbC<  2) +RW2«C 
S  =  SI  N  (  XLL(NEQL  >  HHETi 
ZFW42,1I =2PBC12>  »RW2<S 
NEGLM  =  NEQL-1 

CALL  WHEELS  1  t  LE  V4  N  ECL  M 11  ,  H  A  ,HC  ,HE ,HF  ,  HX  ,  IH(  2 , 1 1 , 2,‘ 

«•  LCUT  ,LUN6,  XPWI  2,  1>  ,  2fiW  (2  ,l  )  ,Z  PRCFI  2 , 1  J  I 
XPW4  2,21 =XP8C{ 2) “RW 2^C 
ZPW( 2,2I=ZPBC( 2  >-RW2«S 

CALL  WHEELS  (  EL  E  V <  N  £CL  »  ,  HA  , FD ,  H E ,  HF^’HX,  I H  ( 2 , 2 i  ,  2»LOUT  ,LUN6 , 

+  XPW4  2, 2  I , ZPW( 2,2 i ,2FfiCFl2, 2i » 

JF(LCUT«Gc.11>  WRlTEitLUNb,  6l»  I  EL  EV  (  I )  *  I  =  1*NEQL  I 
IFILCUT.  GL.  11  >  WRIT  EILUN6 , 81  )  C,  S,:{  XPWi  2*  Jl, 

«■  ZPW{2,J»  .ZPRGF  (2  ,JL,  lh<,2,J  »,  J=l,2» 

81  FORMATOH  EL  EV  AT  4,  Fjl0  ,■  3  /  2  (  3F  1 0 .3  »  13  i  F 

RETURN 
END 
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L 

SUBRCUTINE  WHEEL!  4  ANGL  E ,  H  A  #HG,  F  E»  IHUBf  K  ,Qlt,OZ  ,XW  ,£W  > 

C 

C 

DIMENSION  HA(5,9l,hCt5,9J-,hE(5,9l,OXMi3l,OZ(10» 

C 

C  SUBKOUTINt  TO  FIND  ANGLE  LNLER  WHEEL  AT  KWfZW, 

C  OF  SUSPENSION  K  ON  HUB  fRCFiLE  ELEMENT  IhUE 

IF!  HA{  K,  IHUB  >  .EQ.l*'#  GOTO  100 

HUB  PROFILE  ELEMENT  A  LiNE 

ANGL  E=  ATN2<  HDI  K,  IHU  eA#-HE(  K  ,  IHU  E  ).i 
IFiAESI  ANGLE!  *LE..0-1A  AN6LE=L. 

RETURN 

hub  profile  element  an  arc 

■ad  A=ATN2IZW-OZ(  iHUE!,XM-CX4  I  HUB!  I 
IF(  AES4  A»  .LE,  .0!  A  A=*J. 

ANGLE=  A-  1.5707903 
RETURN 
END 


SUBRCUTINE  WHEcL2  I  EEFRAD ,  HA  ,HD,HE*,HF»HX  t 

HZ.!HUB,IH2,K,LGUT,  L«N6  ,€X  ,0Z,  PSLP2r  R12,  R12S0,  XP  1  ,XP2,ZP  1  ,Z  RZ  » 
DIMENSION  EFFRAD  (5>  *fcA(  5.#  9ltHDX5.9->f  HEI5  ,9»»HFI  5,9>  ,HX 
*■  (5.1  ei  .HZ(5,10)  fCXl  10»fCZ110> 

SUBROUTINE  TO  LOCATE  SECONC  WHEEL  GIVEN  GNE 
WHEEL  AT  XPi.ZPl 

DC  lk:0  l  =  l.IHUB 

DSU=(HX(K,I»-XPi  M«l24fHZ4K  »n-Z 

lFlLCUT.EQ.il*  WR  IT  E4LUN6 ,9o3  I  ,CSC*R12S0»  HX4K,  II »  HZ4K»  I* 
FORMAT (BH  WHE EL S 0» li#4F  10. 3  * 

IFIOSO  -LE.  R12SC)  GCTO  110 
CONTINUE 

SECOND  AXLE  ON  HUB  PROFILE  ELEMENT  IHUB 

IH2=IHuB 
GOTO  115 
IH2= I-l 

iF(IH2.LT.l>  IH2=1 
D=SgRTtOSO> 

iF(HA(K,iH2)  .EG.  GCTO  160 

ELEMENT  (K,iH2  J  IS  A  LINE 
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S=-HC(K, iH2) /hElK^Ltxl 
T=-HF(  K,  J /HE{  K,iE2  > 

A=S#<'2*-1  . 

b  =  S*(T-ZPl  )-XPl 

C=  (T-ZPl  I  *«2  +  XPl  <‘<‘2-f‘12  SG 

BaA=e/A 

COA=C/A 

IF(-eOA  .G£.  0W»  X1-HI60A^SCRT^  ECA^eOA-COAl 

IFI-BOA  -LT.  0.)  Xl=--BOA-SCRT(  eCA^eOA-COAl 

X2=CCA/X1 

Z1=S*X1+T 

Z2  =  S*'X2  tT 

IFIXl  .GT.  XPU  XF2=X2 
I  Fix  2  .GT.  XP1>  XP2=X1 

IFiXl  .GT.  XPl  .CR.  JI2  .GT.  XPl)  GCTC  150 
IH2P1=IH2+1 

1F(  Xi.LT.HXi  K,  lH.tJ.CR.Xl.GT.HXi  K,IiH2Pl*  >  XP2=X2 
IFi  X2.LT  .HXi  K,  IH2)  .CR.X^.GT.HXiK,  H“2Pin  XP2=X1 
TF{  Xl.LT.HXi  K,lH2J.;CR.X2.LT.HX(K,Ih2i  T  GOTO  150 
IF  (Xl.GT  .HX(K  ,IH2PU  ,CP.X2.GT.HXiK.,IH2Pl  )  )  GOTO  150 
IFIZl  .GF.  22  »  XF2=XI 
IFiZ2  .GT.  11)  XF2=X.2 

150  ZP2  =  S*XP2«-T 

PSLP2=  ATN2:hO(K,  IH2  »»-HEi  K,IH2I  ) 

!  F(  AfcSi  PSLP2  )  .LE.  .011  PSLP2=0. 

1  FiLCUT.tO.ll  )  WRIT  E4I.U  Alb,  156)  IH2  ,  C,  S*  T ,  A,  8,  C,  BOA,  COA, 
»•  X1,X2,21,Z2,XP2,ZP2,FSLP2 

156  FORM  AT(  8Hk)WHEELS1,  I  3^7F  10 . 3/.8F  i  0.  J  ) 

RETURN 

ELEMENT  iK,IF2)  IS  Ah  AFC 

160  CHORC=SOKT( (HX(K,IH241)-HX (K » I H 2 ) ) **2 *1  HZ < K ,1 H2  +  1 1 

♦  -HZi  K,  IH2)-I*<'2  » 

A=2.*aSIN(  .5<'CHCPD/£fFPFDiKJ  ) 

B  =  ATN2 (HZ<  K, IH2  > -CZIiF2 ) ,HX(K ,IF2l-OXi IH2I » 

IFlABSiB)  .LE.  .itU  fi-=0. 

IFiB  .LE.  -1.570  7963267)  6  =B  ♦•b.  283 1  85307 

AHGH=B 

ALOW=B-a 

DO  180  1  =  1,6 

AMiC  =  .5*(AHGH<-AL  CW » 

HXM=CXi  I  H2  )  «-EFFRAD4  K)-*CCSi  AMID) 

HZM=CZ  (  IH2  )*EFFRADI  K-)  fS  INI  AMID) 

RM2  =  iHXM-XPl  )  ^*2  ♦{ H  2N-Z  Pi  )  *<>2 
IFiRM2  .LE.  kl2SG)  GCTO  170 
AHGH=AMI 0 
GCTO  180 

170  TF(RM2  -60.  R12SCF  GGTC  192 
AL0W=AM1D 
180  CONTINUF 

190  XP2=HXM 

Z  P2  =  FZM 

kKANG=ATN21ZP2-CZ( IF2I,XP2-0X(  IH2)  I 
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IFIAeS(RKANG»  ..LE.  .ijl>  RKANG=0. 

PSLP2=R:KANG-1 .572796J267 
19t)  CQNTINUt 

IF  (LCUT  .EQ.l  1 1  WRlTEtLUN6, 196»  IH2f  0,  CHORD#A:),B* 

*  XP2, ZP2 ,PSLP2 

196  FORMAT ( 8 HJRHE cL S 2» i 2# 7F 10 . 3 1 

RETURN 
END 

C 

C 

r 

SUBRCUTINE  WHEEL3  t  EtEV  ,FiA,FC,HE<HFrFX,  IHf K,LOUT  , 

«■  LUNb,XP,2Pt  ZPRQF  T 

DIMENSION  HA(5 ,9 ) fHCiS ,9) f FEt 5, 91 , HF(5«9I *HX( 5 , 10» 

C 

C  SUBRCUTINE  TO  FIND  ELEVA.TIGN  CF  WHEEL  CENTER 
C  AT  XP.ZP.WRT  HUE  PROFILE 

C 

00  2£  1=1,10 

IF (HX(K, n .GT*XP»  GCTG  30 
20  CONTINUE 

IH=9 
GOTO  40 
30  IH=I-1 

iF(IH.LT.l)  IH=1 
C 

C  FIND  POINT  ON  PROFILE 

C 

40  IF(HA(K , JH» . EG.l -1  GGTO  60 

C 

V.  PRCFILE  ELEMENT  A  LINE 
C 

S=-HC(K, Ih)/HE(K,1H> 

T=-HFI  K,  IH)/HEiK,lHI 
ZPROF=S<‘XP«-T 

IFILCUT.GE.lil  WR1TE*LUN6,56)  IH,S,T,IPROF 
bb  F0RMATI9H  WHEEL3 /I  ,^U,3F1  0  .3  > 

GOTO  80 
C 

C  PROFILE  ELEMENT  AN  ARC 
C 

o0  B=.5  *HEi  K,  IH) 

C=  XP*XP  +  hDlK,  IHI  <=X  F*WFIK,  IH  ) 

0=8*' e-c 

I  F  ( •*  B,  GE  •  0 •  ^  Z 1  =  “B'*' S C RT  ( D 1 
IFI-e.LT»0.1  Z1=-B"<SCRT1DI 
Z2=C/Z1 

IF(Z1.GE.Z2»  ZPRCF=Z1 
iFIZl.LT.Z2»  ZPRCF  =  22 

IFiLCUT.GE.lll  WRITEILUN6,71  I  Ih,B,C,D,Zl, 

*■  Z2,ZFR0F 

71  FURMATI9h  WHE EL  3 /2 , ii, 6F1 0 . 3 > 

C 

C  ELEVATION 
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C 

8t)  ELtV  =ZP-ZPROF 

IFILCUT. Gt.l  1  »  «RlT£*tUN6,66»  Xf,ZPfK,IH, 
«•  £LEV,ZPROF 

86  FURMAr<9H  wH  E  E  L3 /3 , 2  F10 . 3 , 2 1 3 , 2  f  1 0.3 1 

RETURN 
END 

C  . .  . . . 

c 

SUBKCUTINe  MINV( A,N  ,C,L ,M) 

DIMENSION  AI  i  »  ,  L 1 1  T  ♦Ni  1 » 

c  Matrix  inversicn  with  pivoting 

C  .•••#  ................ A.. 

L 

C  SEARCH  FOR  LARGEST  ELEMENT 

C 

D  =  1  .L 
NK=-  N 

on  8  0  K=  1 ,  N 
NN=NK«-iM 
L(  K»  =K 
M(K>  =K 
KK  =  NK«-K 
BIGA=A(KK> 

DO  2  L  J  =  K,N 
IZ=N*( J-1) 

DO  2  0  I=K,N 
IJ=I  Z<-I 

10  IF  (  A8S(  B!GA»-ABS<AI  IJlIi  15f^0,20 

15  BIGA=A(IJ) 

LI  KJ  =I 
M (R>  =J 

20  CONTINUE 

C 

C  INTERCHANGE  HCWS 

C 

J=L( K> 

IFIJ-KI  3:>.35,25 
25  M=K-N 

no  3  0  l  =  i  ,N 
K  i=K  I+N 
HCL0=-A(KI> 

Jt  =  K  I-K«- J 
A  (K1  )=A(  JI  ) 

3'^  A(jn=HGLD 

C 

C  INTERCHANGE  CCLUMNS 

6 

35  I=MI  K) 

IP(l-K)  45,45,33 
i3  JP=N*(!-1» 

DU  40  J=1,N 
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U  .3 
C 
L 

C 

45 

4o 


4b 


5P 


bkJ 

62 

0  5 
C 

c 


It 

75 

C 

C 

L 

C 

c 

c 


b0 

c 

c 


L 


i 


JK=NK«-  J 
J  !  =J  PfJ 
HOLD=-A( JK) 

A( JK  »= A( Jl) 

Ai  JI  >=HQLD 

DIVIDE  COLUMN  BY  MNUS  PJVOT  (VALUE  GF  PIVOT  ELEMENT 
i  S  CONTAINED  IN  EJGaI 

TF(BIGA»  48,46,4b 
D  =  0.i: 

RETURN 
DO  55  1=1, N 
IFU-K)  5^,55,52 
IK  =  NK«-! 

A(iK)  =  A(  IK»  /(-BIGAT 
CONTINUE 

REDUCE  MATRIX 

DO  65  1=  1»N 
IK=NK«-T 
HULD=A( IKI 
I  J=  I  -N 
DU  6  5  J=1,N 
IJ  =  I  J*-N 

IF(I-K)  60,65,60 
IF{J-K)  62,65,62 
K J  =  I  J- 1+  K 

A(  IJ  )  =  HOLD*'A(KJ>  *Ai 
CONT  INUE 

DIVIDE  ROW  BY  FIVET 


K  J=K-N 
DC  75  J=1.N 
K  J  =  K  J+N 

IF(J-KJ  70,75,70 
A(KJ  )=A(  KJ)/BIGA 
CONTINUE 

PRODUCT  OF  PlVGTS 


□=D*BI GA 

REPLACE  PIVCT  BY  PECIPRICAL 

A  (KK  »=i.0/0£GA 
CONTINUE 

FINAL  ROW  ANC  COLUMN  INTERCHANGE 


K=N 

K=(K-1  ) 

137 


o  r 


VOLUME  II 

listing  UF  PpaCRAM  OeS78B 


PAGE  A-4 


1F(K»  15.S,  150,  l«i5 
105  I=L1K) 

IF  (  I-K)  l4i0,120  ,108 
1»'8  JC=N«'(K-1) 

JR=:|MJ<{  I-l  ) 

DG  110  J=1,N 
JK= JC+  J 
HaLD=A( JKJ 
J!=Jk+ J 
A(  JK)  =  -^A(JII 
110  A(JII=HULD 

120  J=M(K) 

IFiJ-K»  100,100,125 
125  KI=K-N 

DO  180  T=1,N 
KI=K  H-N 
HOLD=A( KT> 

Ji=K  I-K«-J 
Al  KI  »=-A  {  JI  » 

130  A(JI  >=  HOLD 

GO  TC  100 
150  kETUFN 

END 

0 

C 

FUNCTION  ArN2IX,Y)- 
ATN2=0. 

iF<X  .NE.0.«OR.Y.NE,;0**  ATN2=AT  AN2 (X  ,y  » 

RETURN 

END 

C 

C 

<i«'4  4  4i<i  44^  4  4  4  44  <<  4  4  4  4  4  44  4  444  44, 4  4  4  4  4  4  444  4 

c  subrcotine  ecscl 

L 

L  SUBROUTINE  ECSCL  -  FRCP  N.J.C.  FCWELL  -A  FORTRAN  SUBROUTINE 

C  FOR  SQLVINC  NONLINEAR  ALGEBRAIC  EQUATIONS 

C  IN  NUMERICAL  METHODS  FCR  NONLINEAR  ALGEBRAIC  EQUATIONS 

C  ED:  PHILIP  fABINCWITZ,  PUBS  GORDON  L  BREACH,  1970 

SUBkCUTINE  EOSOL  <  N,X,  F,AJ  inv,dste.p,cmax,acc,maxfun, 

1  W.MAXC  ,LUN6  ,  IPRINT  ,£ALFUN* 

DIMENSION  X(N),F(M  ,A  J  IN  V  <  N  ,N»  ,  WU  1 0 1,  LI  101,  MI  101 
EXTERNAL  CALFUN 
L  SET  VARIOUS  PARAMETERS 

MAXC=0 

C  'MAXC  COUNTS  THE  NOMBEP  OF  CALLS  CF  CALFUN 

N  T  =N  *4 
N'^EST=NT 

C  'NT*  AND  'NTEST*  CALSE  AR  ERROR  RETURN  If  F(  X I  DOES 

C  NOT  DECREASE 

0TEST=FL0ATI  N«-N1  -0.  5 

C  'DTEST*  IS  USED  TO  RAIMAIN  LINEAR  INDEPENDENCE 

138 


on  r  r 


K-2  J58,  VCLU^£  li 

listing  of  program  OBSTbL 


PAGE  A-46 


NX=N  *N 
NF=WX«-N 
NW=NF+N 
MW=NV>^N 
NDC  =  M*V'«’N 
ND=NCC  «-N 

THESE  Parameters  separate  the  v^cpking  space 

AAKAV  vj 
FM  IN  =i?. 

USUALLT  ‘FMIN'IS  THE  LEAST  CALCULATED  VALUE  OF  F<X), 
AND  THE  BEiT  X  IS  lA  WlAX*-l)  TC  h(NX*Ni 

(JQs:  jjj  ^ 

USUALLY  DO  IS  THE  SCUARE  OF  THE  CURRENT  STEP  LENGTH 
uSS=LSTEP*OSTEP 
DM=DMAX»DMAX 
0MM=4.*DM 
IS  =  5 

•IS*  CONTkOLS  a  'GO  TC  STATEMENT  FOLLOWING  A  CALL  OF 
L  CALFUN 

TINC=1  . 

C  'TINC*  IS  USED  IN  THE  CRITERICN  TO  INCREASE  THE  STEP 

U  LENGTH 

C  START  A  NEW  PAGE  FOR  PRINTING 

IF(I Pk1NT11,1,85 

85  WRITE!  LUN6,b6> 

86  FORMATllFU 

C  CALL  THE  SUBROUTINE  CALFUN 

1  MAXC=MAXC»1 

CALL  CALFUN  {N,X,FJ- 
L  TEST  FOR  CONVERGENCE 

FSO=io. 

UO  2  i=l»N 

FSC  =  FSO»-Fi  I»  *Fi  I  V 

2  CONTINUE 

! F  ( FSO-ACC) 3» i, 4 

C  PROVIDE  PRINTING  CF  F4NAL  SCLUT  ION  If  REQUESTED 

:>  CONTINUE 

IF  i  IPRINT)5,5#b 

6  WRITE!  LUN6,7  IMAXC 

7  FORMAT  ECSCIS/ 

1  5X»3  5HTHe  FINAL  SOLUliON  CALCULATED  BY  EQSOL 

2  8HRECUIRED,  !5,2iF  CAtLS  OF  CALFUN,  AND  IS* 
WR1TE1LUN6,8)  U  ,X  !  11  , F I  1 1  ,  I  =  1,  N  > 

8  FORMAT  (  //4X,1HI,7X,4HXI  I»  ,  12X,  4HFUF//I  I5,2E17.8M 
WRITE!LUN6,9)  FSC 

9  FORMAT  !/5X,21HTF£  SUM  CF  SQUARES  IS,E17.8» 

5  RETURN 

C  TEST  FOP  ERROR  RETURN  BECAUSE  FIX!  DOES  NOT  DECREASE 

^  GO  TC  Mb.li  ,11,  IZ,  U),IS 

I  F!  F  SQ-FMIN>  15,20,22 
2U  IFiOC-USS»  12, 12,  11 

12  NT£ST=NTFST-1 

1FINTEST)13, 14,11 
14  WRI  TE!  LUNo  ,  16  »  NT 
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10  FORMATl/Z/BH  %  EU  SOL  :/5  X  ,  31  FEKROR  RETURN  FROM  EQSGL  BECAUSE,  15, 
1  47HCALLS  OF  C/5LFUN  FHILEC  TC  IMFRCVE  THE  RESICUALSI 

17  DG  18  I=i,N 
NX1=NX+I 
NFI  =  NF*-.I 

X{  1)  =W(  Nxn 
FU)  =W1NFI  > 

18  CONTINUE 
FSC=  PMIN 
GO  TC  3 

C  FkRUF  RETURN  BECAUSE  A  NEW  JACQEIAN  JS  UNSUCCESSFUL 

13  WRITE!  LUN6,19  J 

19  form  ATI ///3H5j  EOSOL:/ 

1  5X.36HEkRUK  RETURN  FROM  ECSCL  BECAUSE  FIX), 

2  39HFAiLEC  TO  0ECREAS8  USING  A  NEW  JmCOBIANI 
GO  TC  17 

15  NTEST=NT 

C  TEST  whether  THERE  F-AVE  BEEN  MAXFUN  CALLS  OF 

C  CALFLN 

11  IF(MAXFUN-MAXC)2l,.2ii,22 

21  WR  TTET  LUN6  ,23)  MAXC 

23  FORMAT! ///8H%  EGSCLJU! 

1  5X,31H£HROR  RETURN  FRCM  ECSCL  BECAUSE 

2  16HTHERt  HAVE  BEEN  ,i5,15HCALLS  OF  CALFUN) 

I  F!  F  S0-FMIN)3, 17,17 

C  PRUVIDE  PRINTING  IF  HEGUESTEC 

22  IF  !  IPk!NT)24,24,25 

25  WRITE!LUNb,26)  MAXC 

26  FUKMAT! EQSCLi^ 

1  5X,bHAT  THE,J5,25HTH  CALL  CF  CACFUN  WE  HAVE) 

Wkl  TE!  LUNb  ,8)  {  I ,  X<  1 1  I  )  ,  1  =  1  ,N  ) 

/(RITE!  LUN6,9)FSG 

24  GO  TC!  2  7  ,28,^9  ,8  7,321^  I  S 

C  STCkE  THE  RESULT  Of  THE  INITIAL  CALL  CF  CALFUN 

FMIN=FSO 
DU  Jl  1=1,  N 
NXI  =  NX  <•! 

NFl=  NF<-1 
wtNXT)=X!I) 

-v!NFl)=F!i) 

31  CONTINUE 

C  CaLCCLATE  A  NEW  JACCBIAN  A FFROX  IM AT  ION 

j2  lC  =  i£) 

1  S=3 

33  IC  =  IC+1 

X<  IC  )=X!  IC)*DSTEF 
GO  TC  1 
29  K=IC 

DC  j4  1=1, N 
NFI=  NF<-1 

K)  =(  F!  I).- W4NFI  U/CSTEP 

K  =  K+  N 

34  CUNT  INUF 
NXtC  =  NX<-IC 
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43 
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X(  IC  >  =  W(  NXIC  ) 
iF(  iC-N>  33»35,35 

calcllate  the  Inverse  gf  the  jaccbian  ahg  set  the 

DIRECTION  MATRIX 
K=0 

DC  36  !=1,N 
DO  3  7  J=  l.N 
K=K«- 1 
NCK=ND  +  K 
AJiNV(I.J»=W(K» 

H(  NOK>  =0. 

CGNT  INUE 
NDCI  =NDC  ♦! 

N0CK1=NDCI<-K 
W( NDCKI»  =1. 

W(NDCl»=l.*FLCATiN-I» 

CONTINUE 

CALL  MINVi  AJINV,  N,DA#L,  Ml 

START  ITERATICN  EY  PREDICTING  THE  DESCENT  AND 
NEWTCN  MINIMA 
0  5=0  . 

DN=0  . 

SP=0  . 

DC  39  1=1, N 
XI  II  =0.. 

FI  i»  =0. 

K  =  I 

00  4  0  J=1,N 
NFJ=NF»-J 

Xl  I )  =XII  KI*WlNFa» 

F(  H=F(i»^AJlNV<I,JI*W(NFJ) 

K  =  K«-N 
CONT  INUE 
OS=OS*-Xl  I>*X<  I> 

DN=UN«-F(  t»*F{  IT 
SP  =  SP*-Xi  II  fFl  I  » 

CONT  INUE 

TEST  WHETHER  A  NEARBY  STATIONARY  POINT  IS 
PREDICTED 

I  FI FMIN^FNIN-OMM^DS 141,41,42 

IF  SC  then  return  CF  REVISE  JACCEIAN 

GO  TCI43  ,43, 441  , IS 

write:  LUN6,45  j 

FURMATl  t  eCSGL  :/ 

5X,33H5hROK  RETURN  fPCM  ECSCL  BECAUSE  A, 

44hNEARbY  STATIONARY  POINT  Of  F<XI  IS  PREOICTEOH 

GO  TC  17 

NTEST=0 

DO  46  I=i ,N 

NXI=NXt-J 

X(  II  =W(NXIT 

CONT  INUE 

GO  TC  32 

TEST  whether  TG  APPLY  THE  FULL  NEWTON  CORRECTION 
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Hi  1S=2 

I  F(  0N-DD)47,^7,48 
47  UD=aMAX 1 (DNfDSS » 

DS=0  .25*0N 
TINC=1 . 

I  F(  DN-DSS)49»b8,  38 
hV  IS=4 

GO  TC  80 

C  calculate  the  LENGTi-  CF  THE  STEEPEST  DESCENT  STEP 

4  8  K=0 

OMCL  T=0. 

DO  5  1  1=1,  N 
DW=0-. 

DO  52  J  =  1  ,N 
K  =  K+  1 

DW=DW*-W(KI*X(  J> 

32  CONTINUE 

DMULT=DHULTf CW^CW 
31  CONTINUE 

OMUL  T=DS  /OMULT 
OS  =  OS'>DMULT*DMULT 

C  TEST  whether  TC  USE  THE  STEEPEST  DESCENT  DIRECTION 

IF!  L!S-DD>  5i  ,54 ,54 

C  test  whether  the  INITIAL  VALUE  CF  CD  HAS  BEEN  SET 

54  I  FI  OCI  55 , 53, 56 

55  uC=AMAXl  (DSS,  AMIMI  CM,DS)  I 
Oi  =  OS/IDMULT'CDMULT> 

GC  TC  41 

C  SET  THE  MULTIPLIER  CF  THE  STEEPEST  DESCENT  DIRECTION 

56  ANMULT=0. 

OMUL  T  =  DMULT«'SCRT<DD/CSI 
GO  TC  98 

C  INTERPOLATE  BETWEEN  TRE  STEEPEST  DESCENT  AND  THE 

u  NEwTCN  DIRECTICNS 

53  SP  =  Sf«'DMLLT 

ANMULT  =  (  CD-DS)  AI  {SP-0S»  i-SCRTI  (  SP~CC)«'*-2  H  CN-DOI 
1  <‘(DD-DS>*> 

OMUL  T  =  DMuLT*( 1 . -ANMCLT) 

C  CALCULATE  THE  CHANGE  IN  XANC  ITS  ANGLE  WITH  THE 

C  first  DlktCTICN 

9d  DN=0. 

SP  =  0  , 

DO  5  7  I  =  I  ,N 

FI  I»  =OMULT*  X(  I  ANMLLT»F<  I  » 

ON  =  ON4FI  Tj  <«f(  I  ) 

NDI=  NO^I 

SP  =  SP<-F<  n^-Wl  NDI  » 

57  CONTINUE 

DS=fc  .25=>UN 

C  TEST  WHETHER  AN  EXTRA  STEP  IS  NEEDED  FUR 

C  INDEPENDENCE 

IF( WINDC  n 1-DTESTl  5  6,58,59 
59  IFISF^SP-DSUK  ,58,56 

C  TAKE  THE  EXTRA  STEP  AND  uPCATE  THE  DIRECTION  MATRIX 
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I  S=2 

DC  6  1  1=1  tN 
NXI  =  NX«-I 

nci=nd^i 
NDCI =NDC  H 

xm=W{NKl  H-DSTEF^WINCH 
W  (  NOCil  =  wlNCCI*i  1+1  . 

CUNT  INUE 
W  ( NO)=l  . 

DC  62  i=l»N 

K=ND 

SP=W(K> 

DO  63  J=2.N 
KN=K+N 
W  (Kl =W(KNI 
K  =  KN 
CONT  INUE 
W (K»=SP 
CONTINUE 

FXPKFSS  THE  NEW  CIHECTIGN  IN  TEHMS  OF  THOSE  OF  THE 
DIRECTION  MATRIX  ,ANC  UPDATE  THE  COUNTS  IN  W(NDC  +  H 

ETC. 

SP=0. 

K=NO 

DU  6  4  I=1*N 
X(l)=Ort 
OW=0  . 

00  65  J=i»N 
K  =  K  H 

0W=DW‘-F1  J»  <-W  (K) 

CONTINUE 
GOTO  168. 66»  »IS 
NDCI  =NDC  +I 
WINOCI  )=W(NDCn+  i. 

SP  =  SF«-OW<‘DW 

IF  ( SP-DS) 64.64,67 

I  S  =  1 

nK=I 

XI  11  =DW 

GO  T  C  69 

XII) =DW 

NDCI  =NDC+  i 

WlNDCi)=Hi(NDCI  +  l)*l. 

uUNT  INUE 

W(ND>=1. 

kECRCER  THE  GIRECTJLNS  SO  TEAT  KK  IS  FIRST 

IF  I RK-1 » 70, 70.7  1 

KS=NCC+NK«'N 

DO  7  2  1=1,  N 

K=KS  +1 

SP=W(K> 

00  73  J=2,KK 
KN  =  K-iM 
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WI  K)  =rtl  KNT 
K=KN 

73  CONTINUE 
W ( K) =SP 

72  CONTINUE 

C  GENERATE  THE  NEW  CRTBCGCNAL  DIRECTION  MATRIX 

7  2'  DC  74  I  =  1,N 

NWl=NW*-i 
w(  NW  II  =k?. 

74  CONTINUE 

sp=xn  I  s-xii) 

K  =  ND 

nc  lb  I=2,N 

DS  =  SCRT(  SP*l  SP*XU  I  ♦XI  I  )  J  ) 

nw=SP/DS 

ns=x  (I  >/DS 

sp=sp+xi  II  «x(  I ) 

DO  7  6  J=1,N 
K=K  H 
NW  J=  NW  + J 
KN=K  ♦•N 

«(  NW  J}=K(  NWJ>  +  Xi  I-l  ICWI  K1 
W  (K  I  =1)W<'W  (KN)  -OS*W  {  N>W.JI 

76  CONTINUE 

75  CONTINUE 

SP  =  1  ./SQRT( DNI 
DO  77  1=1, N 
K  =  K«- 1 

WIKI  =SP«F(I.> 

77  CONTINUE 

C  CALCULATE  THE  NEXT  VfiCTCR  X»ANC  PREDICT  THE  RIGHT 

C  HAND  SIDES 

drf  FNP=0. 

K=kJ 

DO  7b  1=1, N 
NX1  =  NX«-I 
NF1=NF.+  1 
Nw  I  =  NW  I 

XI  U  =W(NXm-F(  II 
WI NW  n  =W1NFI I 
DU  li  J=1,N 
K=Kf  1 

wlNWll=wlNwI  l+wl  KI<*FIiJ) 

79  CONTINUE, 

FNP=F‘'JP*-W(  NW  I  I  <■<'2 
78  CONTINUE 

C  CALL  CALFUN  USING  TFE  NEW  VECTCR  OF  VARIABLES 

GO  TC  1 

C  UPDATE  TFE  STEP  SIZE 

27  DMULT  =  to.9<'FMLN*xJ  ,l*fNF-FSQ 

IF  (  CMULTl  Bc,ai  ,81 
82  UD  =  AyAXl  I  CSS,  0,i25*DD  I 

T  INC=1. 

IF  (  FSO“FMINI8u,2  8,2.;8 
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r 


91 

9L 


VOLUME  li 
OF  PROGRAM  OeS78  E 


PAGE 


TRY  THE  TEST  TO  CECiGE  WHETHER  TO  INCREASE  THE  STEP 

L  ENGTH 

SP=0. 

S5=0. 

DU  64  1  =  1, N 
Nw  l=NW*i 

SP  =  SP«-ABS(FlI**tF4I  NWI  i  ♦* 

SS=SS^IF  (  H-W{  NWI» 

CONTINUE 

PJ  =  1.*-DMULT  /(  SP^SCfllSP^SP^DMULTfSS  i  I 

SP=APINU4.,TINC,PJ  I 

T{NC=P  J/SP 

UO^AMlNKDM.SPfrCO 

GO  TC  63 

If  F(X>  IMPROVES  STCPE  THE  NErt  VALUE  OF  X 
IFiFSO-FPTM  83,5i2,.5.« 

FMIN  =  '=SO 
DC  88  I=ltN 
SP  =  X  (I > 

NX!  =  NX  fl 

nfi=nf»-i 

NhI  =  NWH 
X{I>=W(NXI» 

w(  Nxn  =sp 

SP=FU» 

Fi  I»  =W(NFI> 

WI  NFI>  =  SP 
WI  NWII=-W4NWI  > 

CONTINUE 

!FI  I  S-1  1  28,2  8,50 

CALCLLATE  THE  CHANGES  IN  F  AND  IN  X 
DO  89  1  =  1, N 
NXi  =  NXH 
NFI=NF«-I 

X( ii =X{ I »>W<  NXl» 

FI  I)  =F(  I»-W(  NFI  > 

CUNT  INUE 

UPDATE  THE  APPHCXIM/I IONS  TC  J  AND  TG  AJ INV 
K=0 

DO  90  1  =  1, N 
MhI=MW  +  I 
NWI  =  NW  ♦•! 

w(Mwii  =  xm 

W<NWI»=FU> 

DO  91  J=l,N 

WI  MWTI  =W(  MW!  )-AJ  INV4.1,  J  >*FC  J  * 

N  =  K«-  1 

W(NWII=  WINWl » -W  (K»  ♦XI J  I 
CONT  INUE 
CONTINUE 
SP=0  . 

SS=0  . 

DO  9  2  I =1  ,N 
DS=0  . 
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K-2iJ5  8,  VCLU^'E  II 
LISTING  OF  PPOGK/SM  063788 
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DO  93  J=1,N 

DS=D  S*-AJ  INV(  J  ,  T  >*X‘(J> 

93  CONTINUE 

SP  =  SF*OS<‘F(  I  > 

ss=ss+x<  I >*x { n 

F ( I ) =05 

92  CONTINUE 

UMUL  T=1  . 

IF  1  ABSI  SPI-0, l^SS* 54*95, 95 

94  DMULT=J.8 

95  PJ=DFULT/SS 

PA  =  DMJLT/i  OMULT«‘SP+I  l.-CMULT  >  ‘•SS  > 
K=0 

OU  96  1=1, N 
NW  I=NW>I 
MWI=PW*T 
SP  =  P  JOWI Nwl> 

SS  =  P  Mi^Tl 
DO  97  J=1,N 
K=KH 

W  (  Kl  =  w  (K>  I-SP^-XI  J  J 
AJINVI  I  ,  JT  =  AJINV(  I,  ^FfSS^FI  JI 
97  CONTINUE 

96  CONTINUE 
Gu  TC  38 
END 
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K- 2  luS d  » 

VGLUNE 

T  1 

PAGE  8- 

VEHICLE 

INPUT 

FILE  FOR 

PFCGfiM  ceS78fc  -  M60A1  TANK 

MbidLi  N2 

1  2  «J  1 

NUMTS,  NSUSP»NVEH,NFL 

4y . 

0. 

HITCH  HEIGHT  AND  LOAD 

i  1 

BOGIE  INDICATORS 

1  1  i  1 

POWER  INDICATORS 

1111 

BRAKE  INDICATORS 

17  .5> 

17.5 

ROLLING  RADIUS 

1  B6  .Id 

d6.  e 

HITCH  TC  SUPPORT  CENTER 

33  .3 

33.3 

BOGIE  WIDTH 

3t). 

7. 

BCGIE  LIMlT-UP 

-7  . 

-30. 

BOGIE  L  IMIT-GOWN 

bli'46*  477  5  4» 

AXLE  LOAD-EMPTY 

E  3  .  b2 

0. 

VEH.  CG  above  ground 

144.2 

53.62 

0  . 

3. 

LCAD  CG  WRT  GROUND 

iJ  . 

0. 

LOAD 

2  it.' 

VEH  BOTTOM  POINTS  NPTS Cl t NPTSC2 

2  73  .5 

4  5. 

0. 

40. 

XCLCUn  #YCLCU  11  ,I  =  1,NPTSC1 

V./  110 

1  1 

SFLAGl  11  ,  lPn,l  1  ,I.B(  1,  11  ,  1=4,5 

253.31 

40. 

17.62 

23.6 

41.25  14.62  ELLI I),ZS( 11 rEFFRADIil, 

I  =  4»5 
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R-2058,  VOLUME  II 

appendix  B  -  VEHICLE  INPUT  FILE  FCF  PROCHAM  0BS78B  -  M15i  JEEP 


M151A2  -  4X4 
1  2  1  *> 

18 .  a. 

t:  y  e 

i  -3  1  0  d  0 
10  10  0  0 
14.  14. 

113.  2  8. 

0.  0. 

0.  0. 

0.  0. 

1340.  1080. 

25.  18. 

56.  3  0. 

5  00.  0 . 

y  0 

130.  17. 

47.  14. 


0. 

0. 

id. 

0. 
0  • 
0. 


123.  10. 

26.  iL0» 


NUNITS#NSUSP*NVEHl,NFL 
FITCH  HEIGHT  AND  L3AD 
BGCIE  INDICATORS 
POWER  INDICATORS 
BRAKE  INDICATORS 
POLLING  RADIUS 
HITCH  TO  SUPPORT  POINT 
BOGIE  WIDTH 
BOGIE  LIMIT-UP 
BOGIE  LIMIT- DOWN 
AXLE  LOAD-EMPTY 
VEH.  CG  ABOVE  GROUND 
LOAD  CG  WkT  GROUND 
LOAD 

VEH  bottom  POINTS 

88.  13.15  B6.  12.  85. 

13,  18.  0.  18. 
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AFiPENDIX  C 


SAMPLE  TERRAIN  INPUT  FILE  FCR  PROGRAM  QBS78 
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K-2«)58,  VOLUME  I! 

SAMPLE  TERHAIN  JNPUT  FILE  fCR  PFCGRAM  OBS788 


PAGE  C-2 


1(5  a 

<i3 

03 

3.15 

1 1  2.  JiJ 

5  .6  8 

15.75 

I12.3y 

5.68 

33.46 

112. 

5  .66 

3.15 

14  2.0  k! 

5  .88 

lb. 75 

142 

5  .66 

33.46 

142.00 

5  .88 

3  as 

154.00 

5.68 

15.75 

154.00 

5.88 

33.46 

1 5  4 , 0  0 

5.68 

3.15 

1 64  .20 

5  .88 

15.75 

164.00 

5  .68 

33.4  6 

164.00 

5. .8  8 

3.15 

1V6.00 

5  .8  8 

15.75 

196.02 

5.6  8 

33  .46 

196.00 

5.68 

3.1  5 

206.00 

5.88 

15.75 

206.00 

5  .88 

33.46 

206.00 

5  .86 

3.13 

218.00 

5.88 

15.75 

21 3.00 

5.68 

33  .46 

21 B .00 

5  .68 

3.15 

248.00 

5  .88 

15.75 

248.00 

5  .88 

33.46 

24U.00 

5.38 

3.15 

112.00 

2  9.86 

15.75 

112.00 

29  .68 

33  .46 

112.20 

29.68 

3.15 

142.00 

29.88 

15.75 

142.00 

29  .88 

33.46 

142.00 

29  .68 

3  .15 

154.00 

2  9.88 

15.  75 

154.00 

29.68 

33  .46 

154.00 

2  9.68 

3.15 

164.00 

29.88 

15.75 

164.00 

29.68 

33.46 

164.00 

29  .68 

3.15 

196.00 

29.88 

15. 75 

196.02 

29 .68 

33  .4  6 

196.00 

29.8  8 

5.15 

2  06  .02 

29-88 

15.75 

206-00 

2  9  .8  8 

33.46 

226.00 

29.68 

3  .15 

218.00 

29.88 

15.75 

21 8.02 

29  .88 

33  .46 

216.00 

29.68 

3  .15 

246.00 

29 .88 

15.75 

248.02 

29.68 

53.46 

248.00 

29,88 

3  .15 

112.00 

141, .‘60 

15.75 

112  .00 

141  .£0 

33  ,46 

112.02 

141. 
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k-2  0  58»VOLUNEII  PAG£C“ 

SAMPLE  TERRAIN  INPUT  PILE  FtP  PFCGFAM  0ES78e 


3.15 

1  4  2  .  is 

141 .60 

1  5.75 

l42.0iil 

141, .60 

33.46 

142. i3i} 

141  .60 

3.  15 

154.0,3 

a4  1  «60 

15  .75 

1  5  4 . 0  w 

141  .60 

3  J  •  4  6 

154.00 

141  .60 

3.15 

164.00 

141 .60 

1  5. 75 

164 ,00 

14 1  .60 

3  3.46 

164.00 

141  .60 

3.  15 

196,^0 

141  .60 

15 .75 

196.00 

141 .60 

33.46 

1 96.00 

141.60 

3.15 

^S06 . 00 

i41.6« 

15.73 

2  06.00 

141 

33.46 

0  6  •  0  0 

141  .60 

3.15 

2  1  8.  00 

141.60 

1  5  .73 

218.00 

141  .60 

33.46 

218.00 

141  .60 

3.15 

248 .00 

141.60 

1  5. 75 

248,00 

141  .60 

33  .46 

248.00 

141  .60 

v9  9V99v.9  999v9999.‘3'99999‘ji9:^.99 
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SAMPLE  CLiiPUT  FRGM  PPCGRAM  LtBS78B 
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W.-20  58,  VOLUNE  II 

SAMPLE  CJTPUT  FfvCM  PkOGRAM  CES78B  -  VEH ICL  E  A1  TANK 


NUHGT 

3 

NANG 

8 

NWCTE 

3 


LLRMIN 

FCOMAX 

FCG 

HOVALS 

AVALS 

WVALS 

INCHES 

PCUNDS 

POUNDS 

INCHES 

PADIANS 

INCHES 

37 .163 

8  94  8 . 5 

372.  1 

3.15 

1-95 

5.88 

27276  .2 

1842. 

15.75 

1-95 

5.88 

6.57 

69773.8 

5211.3 

33.46 

1.95 

5.88 

37.03 

6948. 5 

394.3 

3.15 

2  .48 

5.88 

24  ,38 

24473.2 

1604.8 

15.75 

2.48 

5.68 

6.72 

50134  .8 

3800.0 

33.46 

2.48 

5,88 

J7.03 

8948.5 

399.0 

3,15 

2.69 

5.88 

24,56 

1  8969.2 

1390.5 

15  .75 

2.69 

5.88 

11.43 

32415.7 

3016.3 

33  .4b 

2.69 

5.88 

3b  .90 

8456. 0 

386,8 

3,15 

2.86 

5.88 

24.3  0 

17646.6 

1259.3 

15.75 

2.86 

5.88 

20.43 

3  0  244 .5 

C761.9 

33  .46 

2.86 

5.88 

3  8  . 2 

8281. 7 

707.0 

3,15 

3.42 

5.88 

21  ,2  7 

1 8o99,8 

2246.3 

15.75 

3.42 

5.88 

2  .6  7 

30  044 • 5 

2696.0 

33  .46 

3.42 

5.88 

39. 6^. 

4  12  4.4 

224.7 

3  .15 

3.00 

5.83 

31.0  1 

13  744  .6 

1544.0 

15.75 

3  ,60 

5.88 

-1.30 

30  816.3 

2642.5 

33  ,46 

3.60 

5.88 

40.00 

3  757. 7 

i  74.5 

3. 15 

3.80 

5.88 

36.03 

13166.8 

982.9 

15.75 

3.80 

5.88 

2  0.01 

31 678.1 

26  26. 5 

33.46 

3  .80 

5.88 

40,00 

1 612 .7 

3  16. 6 

3.15 

4  .33 

5.88 

39.54 

4149.3 

14  5.  9 

15  .75 

4.33 

5.88 

37.79 

5  566.1 

-125.5 

33  .46 

4.:33 

5.8  8 

37.13 

9272.2 

484.4 

3.15 

1.95 

29.88 

2  4.26 

12489.2 

-316.4 

15.75 

1  .95 

29.88 

b,57 

79647 .8 

4974.4 

3  3.46 

1  .95 

29,88 

,13 

9272.2 

5016.0 

3.15 

2.48 

29.88 

^4-22 

20  272  .6 

862.5 

15  .75 

2.48 

29.  88 

6.62 

51 346.5 

434^.5 

33  .46 

2  .48 

29  .88 

37.13 

9272.2 

516.7 

3  .15 

2.69 

29.88 

24.36 

20378 .0 

A  71 7.0 

15.75 

2.69 

29.88 

11.70 

34287.7 

3769.5 

33  .46 

2.69 

29.88 

3  6.99 

8456 . 0 

527.7 

J.15 

2.86 

29.  88 

2ii,b7 

15  926 .4 

1465.5 

15.75 

2.86 

29.88 

20.55 

30  244 . 5 

3131.9 

33  ,46 

2.86 

29.88 

il  ,11 

8  44  8 . 1 

629.9 

3  .15 

3.42 

29.88 

14.79 

18695.7 

1864.3 

15-75 

3.42 

29.88 

2.92 

30  044,5 

3.04  2.6 

33  ,4  6 

3.42 

29.88 

3  6.68 

7208.2 

-21 9.2 

3  .15 

3.60 

29,88 

22.08 

3  i  86  1.0 

2301.9 

15  .75 

J  .  6ti; 

29.88 

-11.56 

34  784-1 

3152.8 

33  .46 

3.60 

29.  88 

36.71 

9361  ,9 

100  1.2 

3-15 

3.80 

29.88 

^1 ,21 

20261.7 

16  3  7.8 

15  .75 

3.80 

29.88 

3.49 

48386.8 

4522.6 

33-46 

3.80 

29.88 

38.68 

5  964 . 9 

196-1 

3  .15 

4.33 

29.88 

154 


PAGE  D 


VULUWE  II 

iAVPLE  GUTPUT  FRCM  PRCGRAP  CBSTSB  -  V EW ICL E iM6 0A1  TANK 


j  7 .0^ 

7279.0 

-102.6 

J5.I61 

12253  .2 

759.8 

j7. 1  7 

9272  .2 

23  1.1 

24.77 

20814.9 

li04  0  »4 

6,5y 

79704  .9 

4401.1 

:i7.n 

9272.2 

236.3 

24.44 

35968.2 

1861.0 

6  *6  2 

5281  5.6 

3648.1 

37.17 

9  27  2.2 

241.8 

^4.40 

27603 .5 

1707.9 

11.5^ 

34088  .9 

33iy6.2 

36  .4  3 

8456.0 

429.9 

24.46 

1  8  74  0 . 7 

1827.2 

20  «  5  5 

30£44  .5 

3062.1 

34.0  3 

8  ^9  5.  3 

471  .2 

22.76 

1 9012.2 

2295,4 

2  0.46 

30044 .5 

3493.0 

34.12 

9326. 8 

741.4 

16.75 

32  341 .8 

249  7.8 

9 . 38 

34  36  8.4 

4266.5 

33.89 

9787  .3 

452.9 

12. 42 

38383 .1 

2027.9 

-1.8  3 

48928.4 

3741.5 

33.91 

8474.2 

608.0 

12  .9  0 

18  26  9.4 

955.9 

-23.03 

79892  .1 

5167.6 

15.75 

4.33 

29.88 

3J.46 

4  .33 

29.88 

3.15 

1.95 

141.60 

15  .75 

1.95 

141.60 

33  .46 

1.95 

141 .00 

3.15 

2.48 

141.60 

15  .75 

2.48 

141.60 

33.46 

2.48 

141.60 

3.15 

2.69 

141.60 

15.75 

2.69 

141 . 60 

33.46 

2  .69 

141.60 

3.15 

2.86 

141.60 

15  .75 

2.86 

141.60 

33.46 

2.86 

141.60 

3.15 

3.42 

141.60 

15  .75 

3.42 

1 41 .60 

33,46 

3.42 

I4l .60 

3  .15 

3.60 

141. 60 

.1 5 . 75 

3w60 

141 .60 

33.46 

3. *60 

141.60 

3.15 

3.80 

141.60 

15  .75 

3.80 

141,60 

33.46 

3.80 

141.60 

3,  15 

4.33 

141.60 

15.75 

4.33 

141.60 

33.46 

4.33 

141.60 
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VOLUME  li 

SAIWPLE  CUTPUT  PRCH  PRCGkAM  C6S78B  -  VEHICLEsMlSl  JEEP 


NOUGT 

3 

N  AN  G 
8 


NUDTP 

3 


CLRPI  n 

FCQMAX 

foa 

ECVALS 

AVALS 

WVALS 

INCHES 

PCUNDS 

POUNDS 

INCHES 

RADIANS 

INCHES 

6.85 

941.6 

3  1.0 

3  .15 

1.95 

5.88 

-3.75 

2  179.6 

12  7. i 

15  .75 

1.95 

5.68 

-^1  .21 

2208,5 

237.5 

35  .46 

1  .95 

5,88 

6.85 

1 215.5 

35.6 

3.15 

2,48 

5.88 

-3.5*+ 

106  1.  2 

11  8.7 

15  ,75 

2.48 

5.88 

-18.36 

96  0.9 

160.6 

33*46 

2.48 

5.88 

0.85 

696.1 

25.5 

3.15 

2.6  9 

5,88 

-2  .31 

696.7 

124.9 

15.75 

2.69 

5.88 

-3.9  5 

646  .3 

98.2 

33.46 

2.69 

5.88 

7.45 

411. 2 

34.3 

3.15 

2.86 

5.88 

2.93 

424 . 0 

69.7 

15  .75 

2.86 

5.88 

2.61 

799.3 

98.3 

33  .46 

2.86 

5.88 

7.19 

417. 7 

4  2,9 

3.15 

3.42 

5.88 

,  5.5>3 

444 . 5 

38.7 

15.75 

3  .42 

5.88 

3  .1  i6 

799. 3 

103.  9 

33  .46 

3-42 

5.88 

7  ,42 

704.7 

35.5 

3.15 

3,00 

5.88 

l.2^ 

757.6 

135.1 

15 .75 

3.60 

5.88 

-4.83 

839.  1 

135.3 

33  .46 

3.60 

5.88 

8.20 

662.5 

1  6.3 

3 .15 

3.80 

5.88 

.0  8 

1 170.4 

180.3 

15 .75 

3  .80 

5.88 

-9  .54 

1  3k)  1 . 5 

24  0.0 

33.46 

3.80 

5-88 

9.65 

344 . 3 

4.8 

3.15 

4,33 

5-88 

5.79 

115  0.8 

43.5 

15.75 

4.33 

5.88 

-.2.3 

2378.0 

146.0 

33.40 

4.33 

5,88 

6.85 

592 .1 

-  2.8 

3,15 

1.95 

29.88 

-3.75 

2  163.4 

99.1 

15  ,75 

1  .95 

29.68 

-21.46 

2229.6 

150.9 

3  3.46 

1  .95 

29.88 

6.85 

1  015. 5 

29.3 

3.15 

2.48 

29.88 

-3,75 

1 252  .4 

98.4 

15.75 

2  .46 

29.88 

-4.92 

1110.3 

109.8 

33.46 

2  w4  8 

29.88 

6.85 

698.  1 

24,7 

3  .15 

2.69 

29.86 

.5  9 

658.0 

69,2 

15  .75 

2,69 

29.88 

•  be. 

637.9 

116.9 

33  .4  6 

2  .69 

29.88 

7. *+5 

411.2 

28.8 

3.15 

2,86 

29.88 

4  .86 

443.4 

5  0.1 

15,75 

2.86 

29.88 

4.75 

799  .3 

10  5.0 

33  .46 

2.86 

29 .88 

7.29 

41  7.6 

31.1 

3.15 

3.42 

29.88 

5.40 

444.5 

57.0 

15  .75 

3.42 

29.88 

*+  .9 

799. 3 

1  0  .  6 

33.46 

3,4  2 

29.88 

6.83 

708.6 

39.9 

3  .15 

3.60 

29.88 

.78 

761  .3 

119,2 

15  .75 

3.6  0 

29.88 

-2.82 

842. 2 

13  7.0 

53  .46 

3.60 

29.88 

6.72 

991 .4 

34,9 

3.15 

3.80 

29.88 

-2.46 

1178.4 

14  5.1 

15,75 

3.80 

29.88 

-1 0.26 

1 318.0 

193.9 

33  .46 

3  .80 

29,88 

6.68 

575  .1 

4,9 

3.15 

4  .33 

29.88 
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k-2J5b,  VOLUkt  II 

Sample  output  from  program  casTse  -  vehiclejmaSi  joep 


2  40  1. 6 

157.0 

-23.63 

2  551  .4 

22  8.7 

6.85 

541.3 

-6.0 

-.5it 

2426.4 

8  7.4 

-n  .4  0 

2556.1 

128.8 

6.85 

1093.9 

lb.  I 

2  .04 

1170.6 

68.6 

-  .73 

1  304.9 

14  5.9 

6.65 

70.7.5 

i6.9 

'4.40 

75  8.7 

7  5.1 

3.  83 

83  7.9 

132.5 

7.45 

41o.  8 

17.0 

6.76 

443.4 

65.4 

6.8  8 

799,3 

123.0 

7.67 

417.2 

19.1 

7.2  8 

388.0 

65.9 

0.85 

799.3 

106.8 

6.64 

707.1 

2  0.1 

4.2  5 

760.1 

78.2 

3.86 

639. 7 

135.9 

7.0b 

1  094.0 

18.6 

2.04 

1168.7 

8  3.3 

—  .6  0 

1312.2 

164.2 

6.80 

1  131.4 

30.3 

-  .UJ 

2397.2 

8  0..  3 

-15.46 

2  549 .8 

147.3 

15.75 

4.33 

29.88 

33.46 

4  •  3‘3 

29.88 

3.15 

i.95 

141.60 

15.75 

1.93 

141.60 

33  .46 

1.95 

141.00 

3  .15 

2.48 

141.60 

15.75 

2.48 

141 .60 

i33  .46 

2.48 

141.60 

3.15 

2  .69 

141.60 

15  .75 

2.69 

141 .60 

33.46 

2.69 

141.60 

3.15 

2.8b 

141.60 

15  .75 

2.86 

141  .60 

33  .46 

2.66 

141,60 

3.15 

3-42 

141.60 

15.75 

3^42 

141.60 

33  .46 

3.4t 

141.60 

3-15 

3-60 

141.60 

15  .75 

3.60 

141.60 

33.46 

3.60 

141.60 

3.15 

3.80 

141-60 

15  .75 

3  .80 

14 1 .60 

.46 

3.8  0 

141.60 

3.15 

4.33 

141.60 

15.75 

4.33 

141.60 

33. ^6 

4.33 

141  .60 
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